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L'AFC est toujours là. 
Pour ceux qui ne 
connaissent pas encore 
l'Association Fanzines 
CPC, il est encore temps 
de s'y mettre. 


i de plus, vous êtes créateurs 
d'un fanzine, vous devez ab- 
solument vous y inscrire afin de 
bénéficier d'avantages matériels 
divers et surtout de l'union de pas- 


Voici un trés bon fanzine Disc 

dans lequel vous trouverez : Edi- 
to, dossier, bidouilles, interview, 
top démos, tests de jeux, les po- 
tins de la micro, cinéma, vidéo, 
«3 notes de musiques» qui teste 
vos connaissances des musiques 
de jeux et enfin des cours de 
Basic avec de petits exercices 
sympas. 
Vous consulterez ces deux faces 
en musique, agrémentées 
d'animations. Un fanz' sérieux 
qui vous donne un «max» de 
renseignements commme dli- 
sent les 3 rédacteurs Tony, Jo- 
hnny et Fredoo. Pour le recevoir, 
envoyez un disc 3 pouces et une 
enveloppe auto-adressée, af- 
franchie (3,80 Frs) à : 


«Maxi-Micro», Hervé Sengler 
267, route de Colmar 
67100 Strasbourg 





sionnés comme vous. Voici la liste 
des fanzines qui sont déjà adhé- 
rents : 

Fanatic, l'Echo des crocos, Micro- 
boy, Les Dieux du CPC, Cartoon, 
Microsoft, Read Only, Croco Pas- 
sion, Génération CPC, Virus, Ama- 
zing fanzine, Microzine, Maxi-micro, 
Amsnord, LMCP, le croco déchai- 
né, Disc Full, Screen, SOS Fanzine, 
NDC, Amstrad Mag, Raster, Game 
Over, Le Petit Electro Jack, Arkadia, 
Z80. 

A vous d'écrire à l'adresse suivante : 
Association Fanzines CPC, 9, allée 
d'Ozonville, 91200 Athis-Mons. 

Mais vous pouvez aussi consulter le 
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minitel : 36-14 SUR*AMSTEL où 36-15 
RTE"AMSTEL. Vous trouverez sur ce 
serveur, outre l'AFC, Grees, le pro- 
grammeur qui répond à vos ques- 
tions sous 48 h Chrono, une rubri- 
que montage pour modifier les CPC, 
et plein d'autres choses encore, 
dont une rubrique assembleur tenue 
par Longshot. 

Pour finir quelques remerciements à 
Proxy (AFC) pour les fanzines et les 
articles correspondants. A Patrick 
Dettori pour les démos et le travail 
que cela lui occasionne et enfin à 
moi parce que j'arrive encore à me 
supporter après ces longues années 
de vie commune. 
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Pourquoi parler de Game 
Over dans Fanz'Infos, puisque 
ce fanzine est plutôt dédié aux 
consoles de jeu. Eh bien parce 
que l'on peut trouver quelques 
pages consacrées aux fanzines 
sur CPC (entre autres) et parce 
que le fanzine est fabriqué sur 
CPC. 

Le reste peut vous intéresser 
également si vous possédez une 
console ou bien si vous dépen- 
sez Vos sous dans les machines 
de café. || y a quand même pas 
mal de textes, plutôt bien écrits 
même si les tests sont souvent 
impitoyables, pour ne pas dire 
partisans. Sinon la maquette est 
réussie, il faut dire que la PAO 
sur Amstrad c'est vraiment ce 
qu'il y a de mieux. Mais non je 
n'utilise pas de Mac | 

A propos, la rédaction de Game 
Over vend des pin's (oh eux, moi 
J'en ai même pas pour CPC In- 
fos). Pour tous renseignements, 
ecrire à : 


François Drougard 
4,rue du Tintoret 
92600 Asnières 

ou 

Stéphane Couralet 
avenue Jean Moulin 
65100 Lourdes 

















Dr Félix est le pilier de cette 
revue sur disque mais il ne se 
contente pas de cela : il est 
aussi le géniteur du club 
Ams'dem permettant à tous les 
accros de démos sur CPC de se 
procurer ces œuvres informati- 
ques, le plus simplement possi- 
ble. Mais revenons à Ams'dem 
et plus précisément à son nur- 
méro 2. La présentation est très 
réussie avec un écran overscan 
contenant des digits venues de 
l'Amiga. 

On se doute bien que les démos 
et le monde des démo-makers 
sont les principaux sujets d'inté- 
rêt dans Ams’dem mais il n'y a 
pas que ça puisque sont égale- 
ment traités les tests de jeux, les 
bidouilles et autres éditos. En 
plus, c'est bien fait, il y a de la 
musique et quelques effets gra- 
phiques. 

Pour recevoir le fanzine, il suffit 
d'envoyer un disque + 3.80 F en 
timbres. 


Vincent Renaud 
17, Square de Ré 
78310 Maurepas 
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CARTOON 


Né en Avril 90, Monzon Ju- 
nior, Acédric et Amstraderrick 
ont fait de multiples efforts pour 
rejoindre le "Top-Fanz’. 

Vous y trouverez l'éternel édito, 
interview, pubs, concours, peti- 
tes annonces. Tout cela avec 
une mise en page très soignée. 
Il vous offre un service Digitalisa- 
tion et scannérisation. Envoyez 
vos vidéos, photos, dessins... 
etc. Joignez les frais de retour. 
Les digitalisations vous coûteront 
le prix exhorbitant de deux tim- 
bres à 2,30 F. Le format POSTER 
(85*50) vous coûtera deux tim- 
bres à 3,80 F. Notez donc 
l'adresse de ce fanz papier aux 
illustrations soignées. Conditions 
d'envoi : 1 timbre à 3,80F. 








Cartoon 


M'ENFIN !! POURQUOI NE PAS 
ed oat Bobiiot  L'AVOIR DIT PLUS TOT ? ; 
93140 Bondy J'VEUX KW! DICITALISATIONNER 

POUR FAIRE UN CADEAU À 

M'SELLE JEANNE ! 1111 


»]STCRAUJRI 





























Ce fanzine sur disque a le 
mérite de vous offrir tous les mois 
(ce qui est rare en support dis- 
que) une trés bonne qualité. la 
musique y est présente en per- 
manence:. || est Illustré de multi- 
ples graphiques et de quelques 
routines (scrolling en vagues...). 
Que contient donc ce numéro 
quatre ? 

Face A : L'immuable Edito, un 
copleur, des histoires drôles, Best 
Screen's (super écrans de jeux), 
les bidouilles, des tests de jeux, 
des P.A. et des préviews. 

Face B : Interview (on a fait 
mieux !), un cours sur les sprites, 
un reportage sur Microstrad, 
Amstrad Magazine, Amstrad 
User, Amstrad CPC (en plus, il se 
sont trompés de peu mais c'est 
la revue «CPC» qui est apparue 
un mois avant Amstrad Magazi- 
ne, vérifiez). 

Dommage que les accents sur 
les QWERTY gênent quelque 
peu la lecture. 


























Disc Full 
98, rue des Orteaux 
75020 Paris 






















































C RAC @ N | F : FREENARE 
NOM 


Crack'n Rom est un fanzine 
freeware, né en Janvier 91. I 
compte deux numéros à son 
actif, le 3ème est en préparar- 
tion. L'équipe se compose de 3 
personnes et possède deux 
6128, un 464+DD1+ext 64. Elle 
utilise OCP, des compacteurs et 
des utilitaires divers. Cependant 
toute la programmation est fai- 
te en BASIC. 


Emmanuel Fregard 
30, rue de la croix verte 
95130 Franconville 





NON 
ANNE 


TC FRGDE" À ; 
Rae 1 a ce Pen pe | NE € Numéro un et apériodique, 
qu'est-ce que ça veut dire ? Eh 
bien, il s'agit d'un nouveau fan- 
zne et les auteurs ne savent pas 
s’il vont pouvoir assurer une sor- 
tie régulière (ou même assurer 
la sortie du numéro 2 ?). Au long 
des 4 pages, plusieurs rubriques : 
fanzines, interview, tests etc. La 
présentation est à améliorer car 
il a beaucoup de fontes diffé- 
xé | rentes (titres) et pas vraiment 
Let | PE D, ee d'unité dans tout ça. Au numé- 
ro Il, il Y aura des progrès, j'en 
suis sûr. Ah j'allais oublier, vous 
; trouverez aussi Un numéro de 
ni < ni are Drapeau noir avec Anonyme 
LR! & Fanzine. 
Anonyme Fanzine 
6, square Henri Delormel 
75014 Paris 


CA 11, The Va Det denn SOrTs 
8 eal pero ESC ÿo Deno 
ai EE Den SEA 


WE 18 Good lear 
AS 
ner a on fes 
Deno,etc pi 
: à 


an 
in 


N qn Deno * 
nn. EAU 


genoiselle VE 
Ni vutee "SN DDC 





S 
+ 


= Re, IE oc = 
STE En a 2 PS IILES sq , 
bn - = EE 9 2 Æ D 
Bit P'ée le 8 ne le 
ENS Le er 
Rue F LT  É £ 8 à Er À 





LLa11=7114 "4 4 211121 


Valable pour CPC 664 - 6128 





Pour les nostalgiques du casse briques 
voici un listing pour retrouver un jeu toujours 
passionnant. Le mode d'emploi est inclus 
ainsi que le scénario. 


OI GCU AS PUR APS ET SNS GMA UN PER (ON DES DER MN D QUI GO RE LR GE 
eu aa eu LL. 
LL. 1] 

FRS SES Si er oi 
nd, L 1 L 1 ] 


SPACE. BAS _ 


EL 3 =. — 
ELLLLAÆLCILILTID 4 
= 





IUREZCEDIESCITTECEETEE SE) >LA 
29 ‘#41 LEE] >LB 
38 'x4x SPACESHIP SPY #44 >LC 
49 ‘4 LEE) >LD 
59 ‘#42 1998 CEE )LE 
69 ‘#43 #43 >LF 
78 'a#xTHIERRY PERRET #44 )LG 
89 ‘us EEE] >LH 
CY'MELLELEESE EDIT ISIEEE) >LJ 
198 )RB 
119 ? )RC 
128 "SAUVEZ PAR SAVE"SPACE. BAS" >RD 
138 ? RE 
149 >RF 
159 "PRESENTATION ECRAN )RG 


168 MODE 1:BORDER S:INK #,8:INK 1,8:INK 2,13:INK 3,29:S DQU 
YXBOL AFTER 24$ 

179 SYMBOL 249,442,8FF,4FF, &FF, RFF, k7E, &7E,&TE NF 
188 SYMBOL 241,L7E,43C, &3C, &3C, &3C, 418,418, kÿ )LE 


US ne me ms = D = 5) LE" D _-}) D 








199 SYHBOL 242,43C,&8, 49,48, 8,489, LB, 49 >DF 
288 SYNBOL 243,418,418,&18, 49,48, 48, L9, 88 >FD 
219 SYMBOL 244,49,49, 49, 24,466, 424,89, 49 )FC 
228 SYMBOL 245,49,88, 49,48, 418, 9,49, 89 >DN 
238 SYMBOL 246,&9,49, 49, &8, 9,48, k24, 9 >DH 


248 t$=CHR$(22)+CHR$ (1) :n$=CHR#(22)+CHR8 (8) :vait=n$+CHR >PR 
$(15)4CHR$(2)+CHR$ (248) +CHRS (19) +CHR$(B)+CHR$ (241) +CHR$ 
(15)+CHR$(1)+t$+CHR$(B)+CHR$ (243)+CHR$(B)+CHR$ (11) +CHR$ 
(242)+n$ 

258 ract=n$+CHR$(15)+CHR$(2)+CHR$(245)+CHR$(B)+t$+CHRS DMC 
15)+CHR$(3)+CHR$ (244) +CHR$ (8) +CHR$ (15) +CHR$(1)+CHR$ (246 
}in$ 


269 ’Etoile RJ 
278 ORIGIN 8,8:t=TIME+998:WHILE TIMECt HE 
289 PLOT RND4645,RND4495, 3 JVC 
298 PLOT RND*658,RND*419, 1 DUB 
399 PLOT RNDx648,RND+48B, 2: WEND ZX 
318 ’Affiche carac. RE 
328 LOCATE 7,2:PRINT vai$ )UW 
338 LOCATE 11,4:PRINT vais WP 
349 LOCATE 15,6:PRINT vai$ VX 
358 LOCATE 19,8:PRINT vaif$ DVE 
369 LOCATE 24,2:PRINT vai$ )W 
378 LOCATE 26,4:PRINT vais VA 
384 LOCATE 29,6:PRINT vai$ )VG 
398 LOCATE 32,8:PRINT vaif$ >VD 
489 LOCATE 34,18:PRINT vais )W 
418 LOCATE 28,12:PRINT vai JT 
429 LOCATE 24,17:PRINT vai$ )VD 
438 LOCATE 28,14:PRINT vai VF 








449 LOCATE 4,23:PRINT rac$ 


458 LOCATE 2,25:PRINT rac$ >WK 
469 LOCATE 18,24:PRINT rac$ WP 
478 LOCATE 13,23:PRINT rac$ NT 
488 LOCATE 15,25:PRINT rac$ VY 
498 LOCATE 18,22:PRINT rac$ vZ | 
589 LOCATE 28,25:PRINT rac$ WVL 
51# LOCATE 25,24:PRINT ract DR 
528 LOCATE 38,23:PRINT rac$ NN 
538 PEN 3:LOCATE 4,12:PRINT"SPACESHIP"; DIF | 
548 LOCATE 8,15:PRINT"SPY"; WA 
558 FOR X=9 TO 1999:NEXT:RUN"SPACESPY GK l 





IMRETTETETCTEELESCEELEILEE )LA 
29 ‘#4 Hi >LB 
38 ‘xx BREAK BRICK #4 )LC 
48 ‘#44 #4 >LD 
58 'xsx PERRET THIERRY ##4 )LE 
68 ‘#41 CEE) DLF 
79 'x#4 1998 *H >LG 
88 ‘#44 #3} >LH 
CU'IRPETTELESTIITII SES II )LJ 
199 >RB 
119 ? )RC 
129 'SAUVEZ PAR SAVE"SPACESPY.BAS" >RD 
139 ? RE 
148 ? RE 
159 "PRESENTATION ET FENETRE >RG 
168 MODE 1:BORDER S:hiscore=f )YV 
179 VINDOWI2,6,35,3,24:PAPER#2,9:PAPER 9 )HX 
188 WINDOW#3, 2,3,5,21:PAPER#3,8 )2Y 
199 WINDOW#4, 38, 39,5, 21 :PAPERN4,8 )BD 
298 WINDOW#1,6,35,3,25:PAPER#2, 8 )AC 


219 lev=f:score:f:raqs=9:u=1 
228 "SYMBOL ET CARAC. 

239 t$=CHR$(22)+CHR$ (1) :n$=CHR$ (22) +CHR$ (8) XKU 
248 SYMBOL AFTER 142:SYMBOL 143, 89,842, 82,82,82,82,42,8F DXZ 
E:SYHBOL 144,49,&FE, LFE, &FE, &FE, &FE,BFE,&FE:briqgi$=n$+C 
HR$(15)+CHR$(2)+CHR$(144)+CHR$(8)+t$+CHR$(15)+CHR$(1)+C 
HR$(143)+n$ 

259 SYMBOL 149,L7E, &5A, USA, &5A, RSA, REA, &SA, LTE 

269 SYMBOL 158,88,8FF,881,8&FF,&FF,&81,&FF, kB 

278 SYMBOL 151,89,&7,4D,&1B,437, k6D, &5B,&7E 

288 SYMBOL 152,89, LES, &DS, &DB, &EC, &B6, &DA, &7E 

298 SYMBOL 153,49,49,48,8&F,&F,&F,&F,&ÿ 

388 SYMBOL 154,49,48,48,4F8,LFS8,&FO,LFS, &ÿ 

319 SYMBOL 155,49, 49,429,878,4F9, &FB,&79, &28 

328 SYMBOL 156,49,49,k4,&E,&F,&F, BE, &4 

339 SYHBOL 157,48,49,49,&4,k7,8&4, LA, 8: SYNBOL 158,89,89 >YA 














89,429, LED, 428,428, &9 

349 briqg2$=n$+CHR$(15)+CHR$(1)+CHRS(144)+CHR$(8)+E$+CHR DGL 
$(15)+CHR$(2)+CHR$(143)+n$:brig3$=n$+CHR$(15)+CHR$(2)4#C 
HR$(144)+CHR$(8)+L$+CHR$(15)+CHR$(3)+CHR$ (143) +n$ 


358 SYMBOL 159,8469,478,&7C,&FC, LFE, &AA, 489, &45 NT 
369 SYHBOL 169, 89,428, 428,448, &4, LD, LS, KP DFK 
378 SYMBOL 161,46,&1E,&3E, &3F,47F,8&55, 491, &A2 >LU 
389 SYMBOL 162,49,k4,&14,&12, 429, kD, &9, &9 )F2 
398 feul$=n$+CHR$(15)+CHR$(1)+CHR$(159)+CHR$(8)+L$+CHRS DKK 
(15)+CHR$(3)+CHR$ (168) +n$ : feu2$=n$+CHR$ (15) +CHR$(1)+CHR 
$(161)+CHR$(8)+t$+CHR$ (15) +CHR$(3)+CHR$ (162) +n$ :feu3$=f 
eu2$+CHR$(128)+CHR$(128)+feui$:feu4$=feul $+CHR$(128)+CH 
R$(128)+feu2$ 
489 SYMBOL 163,424,88, 855,48, KAA, LD, 20,88 )GC 
418 SYMBOL 164,459, LSA, &3C, RFE, &7F, &3E, &DA, &ÿ >LR 
425 des1$=t$+CHR$(15)+CHR$(D)+STRINGS (4,163) +n$:des2$=n >DWK 
$+CHR$(15)+CHRS(1)+STRINGS (4,164) 

| 439 SYMBOL 231,8,68, 126, 126, 126, 126,69, 8:SYMBOL 232,48, >MU 
&C, 6,86, 46,86, 89,48 :bal1$=n$+CHR$(15)+CHR$ (3) +CHR$ (231 
+CHR$(B)+t$+CHR$(15)+CHR$(2)+CHR$ (232) +n$ 

| 448 SYMBOL 145,LE,L3F,47F,&7F,&7F,&7F,L9F,LE KV 
459 SYHBOL 146,48, &BD, 481, 481, &BD, &BD, LED, &ÿ XKF 
468 SYMBOL 147,49,442, RTE, &7E, L42, &42, &42, 48 )JU 
479 SYMBOL 148,879,&FC,&FE, &FE, &FE, &FE, &FC, 479 JNU 
488 rag1$=n$+CHR$(15)+CHR$(2)+CHR$(153)+CHR$ (154) +CHR$( DLL 
8)+CHR$(8)+t$+CHRS(15)+CHRS(3)+CHR$ (155) +CHR$ (156) +CHR$ 
(8)+CHR$(8)+CHR$(15)+CHR$(1)+CHR$(157)+CHR$ (158) +n$ 
499 rag$=n$+CHR$(15)+CHR$(3)+CHR$(145)+CHR$(15)+CHR$(2) DLD 
+CHR$ (146) +CHR$ (146)+CHR$(8)+CHR$ (B)+t$+CHR$ (15) +CHR$(1 
)+CHR$(147)+CHR$(147)+CHR$(15)+CHR$(3)+n$+CHR$ (148) 
588 ENV 3,69,9,1 DJ 
519 ENV 1,19,18,2,11,2,19 >RG 
528 ENT -1,6,-1,1 >CG 
538 Etoile JRJ 
548 FOR CV=1 TO 3:INK CV, S:NEXT )ZA 
559 t=TIME+988:UHILE TIME<t:PLOT RND4645, RND4485, 3 DL 
568 PLOT RND*659,RND*419, 1:PLOT RND+649, RND*489, 2:WEND: >HC 
CLSH 
578 ? ECRAN )TC 
588 FOR n=3 TO 25:PEN 1:LOCATE 5,n:PRINT CHR$(149)::LOC >GZ 
ATE 36,n:PRINT CHR$(149) ; :NEXT:LOCATE 5,2:PRINT CHR$(15 
L)STRINGS (38, 158) CHR$ (152) 
599 PENI3, 1:PRINTH3,"S PACESHIP S P Y"::P MN 
EN#4,1:PRINT#H4," SPACESHIP S P Y";:GOSUB 
1148 
699 INK 1,6:INK 2,13:INK 3,23:GOSUB 3249 DFN 
618 "LECTEUR DATAS TABLEAUX >RH 
628 RESTORE 1219:G0SUB 1158 >VH 
638 lev=levt1:CLS#2:IF gcoret)8 THEN score=acore+{98  >YP 


649 FOR c=8 TO 19B8:NEXT:CLS#2:1F score:5899 OR score=8 >NR 
988 OR score=11988 THEN rags=rags+i:GOSUB 1188 

658 IF lev=13 THEN 3389 ELSE LOCATEN2,6,19:PEN#2, 3:PRIN )DN 
TH,"VAISSEAU  ";lev:FOR c=8 TO 1885:NEXT:CLSH2 


669 FOR tabli=1 TO 15:READ ta$:FOR tabl=1 TO 38:tabb$=M >PK 
ID$(ta$, tabl, 1):ta=VAL(tabb$) 


678 IF ta=8 THEN LOCATE#2, tabl, tabl1:PRINT#2,CHR$(32) DZ 
686$ IF ta=1 THEN LOCATE#2, tabl, tabl1:PRINT#2,briqi$ DU 
699 IF ta=2 THEN LOCATER2, tabl, tabli:PRINT#2,briq2f >XY 





789 IF ta=3 THEN LOCATE#Z, tabl, tabl1:PRINT#2,briqg3$ )XR 


719 NEXT:NEXT )BF 
728 READ day, br >DJ 
739 bx=19 >EH 
749 CLEAR INPUT >)LX 


759 GOSUB 1149:GO0T0 799 RH 
768 "MOUVEMENT >TD 
779 IF w=1 THEN LOCATE bx+2,24:PRINT rag$;" ";:RETURN )2F 
788 IF w=2 THEN LOCATE bx,24:PRINT" ‘";rag$; :RETURN )XR 


799 xa=1:ya=1:1F INT(RNDX5))=1 THEN xa=-xa KV 
688 GOSUB 779 )JB 
819 ORIGIN #,488 DFA 
828 x=bxt4:y=day:xi=x:yi=y D 0 
838 xi=xtxa:yi=y+ya >PX 
848 IF x1=6 OR x1=35 THEN xa=-xa »YD 


658 GOSUB 1939 >PJ 
869 IF y1=24 AND x{>bx+i AND x1<bx+6 THEN ya=-ya:yi=yi- >WG 
2:SOUND 138, 398,39, 19, 1,1,31:a=((x>bx+5)0R(x<bx+2)):1F 

a=-1 THEN xa=xata:x{=xitxa:yi=yi+i 

879 IF y1=25 THEN LOCATE x,y:PRINT" *:GOSUB 778:GO0T0 99 >AY 
(] 

888 "TEST DES BRIQUES TG 
898 t=TEST((16#x1)-3,-(164y1)-1) )2Q 
989 IF t<>8 THEN ya=-ya:xz=xl:yz=yl:yl=yltya: GOSUB 1899 >CZ 
918 IF t=2 THEN score=score+28:SOUND 1,898, 14,14,3,,38: DJE 
br=br-{:1F br=# THEN GOTO 639 ELSE GOSUB 1148 

928 IF t=3 THEN score=score+39:SOUND 1,898, 14, 14,3,,38: >JH 
br=br-{:1F br=$ THEN GOTO 638 ELSE GOSUB 1148 

938 IF t=1 THEN score=score+18:SOUND 1,899, 14, 14,3,,39: DJE 
br=br-1:1F br=# THEN GOTO 638 ELSE GOSUB 1148 

948 IF tO@ THEN IF score=6989 OR score-9888 OR score=1 >RH 
2889 THEN rags=rags+{:GOSUB 1188 


958 IF y1:3 THEN ya=1 >PK 
968 LOCATE x,y:PRINT" ":LOCATE x1,y1:PRINT ball$;::x=x1: DHE 
y=yl 

978 GOTO 839 )AD 


988 "PERDS UNE RAQUETTE >TH 

998 raqgs=rags-1:FOR bn=288 TO 268 STEP 5:SOUND 1,bn,5,4 >DL 
:NEXT:LOCATE bx+2,24:PRINT desi$;:FOR bn=47 TO 58:SOUND 
1,989+bn, 4,12:NEXT: INK 8,6:LOCATE bx+2,24:PRINT des2#; 
INK 8,8: SOUND 1,1999,5,15 

1899 1F rags=9 THEN MODE 1:FOR n:1 TO 25 STEP 2:PEN INT DBE 
(n/9+1):LOCATE 12,n:PRINT"G A ME O V E R":NEXT:FOR n- 

# TO 1589:NEXT:G0TO 1118 ELSE GOSUB 1178 

1818 GOSUB 1149:GO0T0 799 RB 
1828 'RAQ. À GAUCHE >XF 
1838 IF CINKEY(8)=8 OR INKEY(74)=8) AND bx>5 THEN bx=bx DEV 

-2:w=1:GO0SUB 778:RETURN 

1848 ’RAQ. A DROITE >XH 
1859 IF (INKEY(1)=8 OR INKEY(75):9) AND bx<29 THEN bx=b DFV 
x+2:w=2:G0SUB 778:RETURN 


1868 1F INKEY(27)C9 THEN RETURN ELSE WHILE INKEY(34)<> DHH | 
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# : VEND 

1974 RETURN )FB | 
1988 ’EFF. DE LA BOULE »YB 
1998 LOCATE xz,yz:PRINT" ":RETURN >DN 
1198 "GAME OVER )XE 
1118 IF score)hiscore THEN hiscore=score >LK 
1128 CLS#2:GOTO 179 >MH 


1138 "HI, ET SCORE 
1148 PEN 1:LOCATE 5,1:PRINT" HISCORE :";CHR$(15)CHR$ (3) 
sUSING"##4##"hiscores :PEN 1:LOCATE 22, 1:PRINT" 
"5 CHRS(15)CHRS (3) ;USING"HHH#" ; score; :RETURN 

1158 ‘affiche raquettes 
1169 LOCATE 8,25:PRINT SPACES (28) ; :LOCATE 8,25:F0R n=1 
TO raqgs:PRINT ragi$;" ";:NEXT:RETURN 


1178 LOCATE 8+ragst3,25:PRINT"  *;:RETURN 


1188 LOCATE 8,25:F0R n=1 TO rags:PRINT ragi$;" ";:NEXT: 


RETURN 

1198 "DATA 12 TABEAUX 

1288 ‘1 

1218 DATA 932191238321912218123832181239 
1228 DATA 832191239321988808123032181238 
1239 DATA 832191230998980908089932191239 
1249 DATA 932181239321999899123932181239 
1258 DATA 988081238321088088123932199889 
1268 DATA 999681238321898888123832188880 
1279 DATA #32191238321988988123832191238 
1289 DATA 932191238888808888896932191238 
1299 DATA 932151238988088980089032181238 
1388 DATA 932191238888908960999932191238 
1318 DATA 932188988088886906080886081238 
1328 DATA 832191238888908806800832191239 
1338 DATA S98081238968980086080932129988 
1348 DATA #32191238808008808006932191239 
1358 DATA 932198608908080680088080581238 
1368 DATA 13,126 

1378 "2 

1388 DATA S809006000060008808006800808909 
1399 DATA 698088980058991158980885080589 
1489 DATA 98068860088011221 189080888580 
1419 DATA SÉ89889809112233221 190888809888 
1428 DATA 989980081122333333221189888089 
1438 DATA 99899811223333893333221 1089988 
1448 DATA 890811223333008888333322119889 
1458 DATA 898911223333988988333322119988 
1468 DATA 98099911223333983333221 1898098 
1478 DATA 688998981122333333221 1809089888 


| 1488 DATA 6809889965112233221 189688908069 


1498 DATA S88088068985112211989989989888 
1588 DATA 969880089808801198006806008698 
1519 DATA S88006908068908000009886580886 
1528 DATA 6806960066800006988006806888068 
1538 DATA 3,85 

1548 3 

1558 DATA S68080608008808958080989089989 
1568 DATA D60860809806091196808880898880 
1578 DATA S98008808008111111988989080888 
1589 DATA 9808808888111111111 198899890889 
1598 DATA 991111111111122221111111111188 
1689 DATA #89911111222222222222111118889 
1618 DATA 898988111122222222221111889088 
1628 DATA 999888911111222222111119808888 
1639 DATA 998888851111112211111189080888 
1649 DATA S89808889111111111111888908889 
1658 DATA S88888888911111111119889089089 
1669 DATA 99088800888111331 1189608808884 
1678 DATA S88098988998113311889889689885 


>XH 
DC 


>XK 


»BZ 


>LB 
>JN 


1688 DATA O80800808880803308898606088688 
1699 DATA SO68806889680033580690P66 09888 
1788 DATA 3,188 

1718 '4 

1728 DATA O606006080600833308006808888085 
1739 DATA S950006000689333886800966000960 
1748 DATA 960808889822222222208808098609 
1759 DATA 0088089089022222229B0980089889 
1768 DATA 690808000800033306808600865800 
1778 DATA S60808908008033386080980080888 
1788 DATA O09880009800033380000008085080 
1798 DATA 929898908009933380889989089929 
1898 DATA 692222222222222222222222222289 
1819 DATA 898222222222222222222222222988 
1828 DATA 989999922222222222222228888008 
1838 DATA S98988808068808659980080009688 
1849 DATA O00880009868090868006809008600 
1859 DATA 968068060008060096086086000089 
1869 DATA DO0800088600008806808060008088 
1878 DATA 15,57 

1888 ?5 

1899 DATA S98088000096666608080089980885 
1988 DATA O808800080880086886608P60808006 
1918 DATA 93333333333333333333333333333$ 
1928 DATA 922222222222222222222222222228 
1938 DATA 9#1111111111111111111111111189 
1949 DATA G88960098900002280000809008008 
1959 DATA S98090800908891199660009580009 
1968 DATA 993333333333333333333333333368 
1978 DATA 992222222222222222222222222288 
1989 DATA 888111111111111111111111111988 
1909 DATA S6B088000066000060080960888886 
2899 DATA O090960006809000800060000008008 
2918 DATA SO8080000008688008080686000988 
2828 DATA O90800000866000600009600895008 
2938 DATA SO8689900098008068080680089888 
2949 DATA 13,198 

2858 '6 

2968 DATA O80600808000000860809800098000 
2878 DATA 991198119908119811989911881199 
2989 DATA 990111199888911119998881111889 
2998 DATA 808911908088901158680089119889 
2189 DATA O808800068600068006088068085098 
2119 DATA S98088611991198981189119999980 
2128 DATA 889808091111889880 111198999080 
2139 DATA S900989981190890008011989989885 
2148 DATA O89908000008000808085000868906 
2158 DATA S9B060068008119911000889080888 
2168 DATA 889980898608011110808808995889 
2179 DATA S00099608098051190000980009968 
2189 DATA S80960809808908868808908965880 
2198 DATA S90006000608698096090680289888 
2285 DATA O80868000968008888006885995688 
2218 DATA 3,32 

2228 "7 

2238 DATA S98008008008988956080908558086 
2248 DATA #91111888811118811118899111198 
2258 DATA 998111880911188991118898111988 
2268 DATA 990811999911808899119909119989 

















2279 DATA 998981188118908988911981 156989 
2288 DATA 989908111189899808081111995890 
2299 DATA S98088911968608986099119660988 
2398 DATA O888889088089088060008900008080 
2318 DATA S68088908111198081111989989988 
2329 DATA 9098600908811199881119898908000 
2339 DATA S680080080811909911580088089689 
2349 DATA 080980089969118811908908009668 
2359 DATA S98968800908011112990088889089 
2368 DATA 900880898886001198008000086868 
2379 DATA S06088000808608000690008099058 
2388 DATA 7,58 

2398 '8 

2499 DATA O89880600808008800008900098080 
2419 DATA 898111111118928988911111111988 
2428 DATA 999811111118999806911111119980 
2439 DATA 998981111119998080911111180899 
2448 DATA 089988111119998808911111999990 
2458 DATA 898988911111111111111119889989 
2468 DATA 988888911111111111111119998888 
2478 DATA 998033333333333333333333339888 
2489 DATA 690888000880333333308009906600 
2499 DATA 998222222222222222222222222888 
2599 DATA 999111111111111111111111111888 
2518 DATA S080889889933333333008989880808 
2528 DATA 0008008006808333380089960908006 
2538 DATA 898008069088008956080088090968 
2548 DATA O96880800808908800008800068099 
2558 DATA 14,128 

2568 ’9 





2579 DATA S68060908066608828980889680586 
2588 DATA 922886808811111111119909998228 
2598 DATA 922298981111111111111189982228 
2688 DATA 922228111111111111111111922228 
2619 DATA 9#22222111111111111111111222228 
2628 DATA 999922221111111111111122228898 
2638 DATA S98080088922222222229909689808 
2649 DATA 999000008000333333800080988868 
2658 DATA S98098088980333333800909009988 
2668 DATA 989900809006011116008008898880 
2678 DATA S08090008068811119080980089688 
2688 DATA O0000800800688119680980808960f 
2698 DATA S98088980698881150880680989588 
2789 DATA O80880809880609808006008009000 
2718 DATA S68009968008908908080988089088 
2728 DATA 15,188 

2738 ‘18 

2748 DATA O89800009090009808908006808088 
2758 DATA 898988982222222222222289080088 
2769 DATA 980999999222222222222898008808 
2718 DATA 9680889899222222222209668008889 
2789 DATA 988889998811111111119808099888 
2798 DATA S980889089333333333390906809989 
2889 DATA 999869006911111111119988898080 
2819 DATA 898066808003333333300980080688 
2829 DATA 099886908891111111198808998800 
2638 DATA 960088608088333333689889009088 
2848 DATA 090800009866111111808880909088 
2859 DATA S68088608008933336988098809888 
2669 DATA D80960080080022229099808888608 
2679 DATA S88088088086881196800060609888 
2888 DATA O80980009008081199808900808068 
2898 DATA 15,76 

2988 ‘il 

2914 DATA S08008080008008800080688680560 
2928 DATA #11111111111111111111111111118 
2938 DATA 811111111111189911111111111119 
2949 DATA #1111111111889889#111111111118 
2958 DATA #11111111988828088881111111119 
2968 DATA #22222208888898008808822222228 
2978 DATA 9222222089988808998988922222228 
2989 DATA 911119098800908898098888111118 
2998 DATA 911119008888880088980688111118 
9969 DATA 033336006086888808008660333335 
3819 DATA 9333309880000808086080988333338 
3928 DATA 933338800868808888808488333338 
3938 DATA 9333300080086080066088098333338 
3949 DATA 933330008883008888008800333338 
3858 DATA 933066068006080000089080689338 
3868 DATA 11,198 

3878 ‘12 

3988 DATA O00886080008008860098899098008 
3898 DATA 811111111111111111111111111118 
3198 DATA 911111111111118811111111111118 
3118 DATA 898111111111118911111111111898 
3128 DATA 699111111111898989111111111988 
3138 DATA 998088960111968968111111111888 
3148 DATA 9009006688111988888111222111988 
3158 DATA 898099680111968998111222111888 
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3168 DATA 960960899111998889111222111988 )EY 
3179 DATA S98686808111898989111121111988 )EX 
3188 DATA 990960808131808888911111119998 )EX 
3199 DATA S96068668928808008951111186880 )ET 
3288 DATA 0609660008080000008069 15998868 EC 
3219 DATA S98068060008608008900980688688 DEC 
3228 DATA O00686006860808808009006698688 )ED 
3238 DATA 14,128 XF 
3248 *ECRAN(SUITE) )B 


3258 PEN#2, 1 :LOCATE#2, 11, 4:PRINTH2, "JOYSTICK" ; :PEN#2,2: DEJ 
LOCATE#2, 14,6:PRINT#2, ou"; :PEN42, 1 :LOCATER2, 4,8:PRINTE 

2," TOUCHES FLECHEES (";CHR$(15);CHR$(2) ;CHR$ (242) ;" "3C 

HR$ (243) ;CHR$(15) ;CHR$(1)")"; 

3264 PEN#2,1:LOCATE#2, 18, 11:PRINT#2, "PAUSE : P/O":LOCAT >DC 
E#2,19,13:PRINT#2, "REGLE :  R':PEN#2, 2:LOCATE#2,8, 16:P 
RINTH2,"THIERRY PERRET" :PEN#2, 3: LOCATE#?, 13, 19: PRINTH2, 
"1909"; :PEN#2, 1 :LOCATE#?2, 13, 29:PRINT#2, STRINGS (4, 298) ; 


3278 PEN#2, 1:LOCATE#2, 11,22:PRINT#2, "(ESPACE)"; )RY 
3288 IF INKEY(59)=9 THEN CLS#2:G0T0 3388 >GU 
3299 IF INKEY(47)=8 THEN RETURN ELSE GOTO 3288 NU 
3388 fin Del 


3318 q=2:FOR w=22 TO 3 STEP -1:LOCATE 18,m:PRINT raq$ NV 
3328 FOR wx=8 TO 2:G0SUB 3349:LOCATE 18,w+2:PRINT STRIN >GY 
G$(4, 128) ; :NEXT:SOUND 1, 1988, 25, 19,8,9,1:NEXT:PEN#2,3:L 
OCATE#2, 11, 11:PRINT#2, "bravo..." :LOCATE#2, 3, 13:PRINT#2, 
“Vous rejoignez la terre."; 

3339 FOR wxc=# TO 288:NEXT:LOCATE#2, 7, 15:PRINT#2, "VOUS NF 
AVEZ REUSSI":FOR wxc=8 TO 289:NEXT:LOCATE#2, 19, 14: PRINT 


Peer ous "FOR wxc=8 TO 2988:NEXT:CLS#2:RUN 178 

3348 IF q=1 THEN LOCATE 18,w+1:PRINT feu3$ JJE 
3359 IF q=2 THEN LOCATE 18,w+1:PRINT feu4$ >JH 
3368 q=q+l:1F q=3 THEN q:1 TG 
3374 RETURN >FG 
3388 "REGLE )YG 


3399 reg$=" 9 espions, chacun dans":G0SUB 3449:reg$="un >LX 
vaisseau RAC, ":GOSUB 3469:reg$="rencontrent une" :GDSUB 
3468:reg$="armada de douze":G0SUB 3469:reg$="vaisseaux 

qui les espechent":G0SUB 3468:reg$="de rentrer sur ter 

re.":G0SUB 3468 

3498 reg$=" Un des espions se chargera":GOSUB 3468:reg$ >CX 

"de detruire les douze":G0OSUB 3469:reg$="vaigseaux ave 

c une boule":GOSUB 3469:reg$="d'energie. À la perte":G0 

SUB 3469:reg$="d'une boule, le vaisseau":GOSUB 3468 

3419 reg$-"de l'espion explosera, ne":GOSUB 3464:reg$=" >KU 

pouvant plus se defendre, ":G0SUB 3468:reg$="et un des 9 
suivants" :G0SUB 3469:reg$="prendra sa place.":G0SUB 34 

68 

3428 reg$="Vous dirigez ces 9 espions.":G0SUB 3468:reg$ >GN 

="A VOUS DE JOUER !!!":GOSUB 3469:reg$=" À certain a 

oment,":GOSUB 3468:reg$="la boule d'energie":G0SUB 346 
tregt="aura detruit assez de":G0SUB 3468 

3438 reg$="plaque de vaisseaux pour":G0SUB 3468:reg$="r »XV 

econstruire un RAC.":GO0SUB 3468:F0R c=8 TO 7989:NEXT:CL 

S#2:G0T0 3248 

3448 reg=1 NF 

3458 "ECRITURE du TEXTE )YE 

3468 LOCATE#?2, INT((38-LEN(reg$))/2)+1,reg:PEN#2, INT(3#R DWK 

ND+1):PRINTE2, reg$ :SOUND 1,568,3,14:reg=regti:FOR rc=8 

TO 189B:NEXT:RETURN mm 
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FORMAT + 


Valable pour CPC 664 - 6128 





Comme vous avez pu le 
deviner, il s’agit d’un 
utilitaire de formatage 
de disquette. Un de 
plus penseront certains. 
Pourtant celui que je 
propose ne manque pas 
d'atouts : d’abord il est 
entièrement écrit en 
BASIC (il n’y a qu’une 
dizaine d’octets de 
langage machine 
nécessaires pour 
formater), ce qui ne 
l'empêche pas de 
déjouer les pièges de 
disquettes absentes ou 
protégées en écriture. 


ou le B, que ce soit un 3”, un 

3"1/2 ou un 5°1/4 (ce que doit 
pouvoir faire tout formateur norma- 
lement constitué). Enfin et surtout il 
est très aisément modifiable pour 
formater au format de son choix (je 
ne saurais que recommander dans 
ce dessein la lecture de mon pré- 
cédent article «TRUCS POUR L'EX- 
PLOITATION DE DISQUETTES A FOR- 
MATAGE SPECIAL EN LECTEUR A OÙ 
B»). 


EF nsuite il opère sur le lecteur A 


FONCTIONNEMENT 


Vous venez de taper le listing de 
8 Ko de FORMAT+ et vous avez pré- 
cleusement sauvegardé ce pro- 





gramme sous le nom FORMAT+ (évi- 
demment) sur une disquette. Vous 
allez enfin pouvoir vous livrer à 
quelques essais sur une disquette qui 
ne craint rien. Vous n'avez plus qu'à 
taper RUN et vous vous retrouvez 2 
secondes plus tard devant l'écran 
de FORMAT+, qui va vous ébahir par 
son ergonomie. Voyons cela | 

Tout fonctionne par pression d'une 
seule touche. Chaque option est 
précédée d'un signe (lettre, chiffre 
ou association de ces deux pour les 
touches de fonction) en inverse vi- 
déo. Il suffit donc de presser la tou- 
che correspondant à une option 
pour la sélectionner. Simple comme 
bonjour. Examinons l'ensemble des 
touches : 

- À <A> : on formatera sur le lecteur 
A. Sans commentaires. 

- B <B> : on formatera sur le lecteur 
B. Sans commentaires. 

- 4 <40> (touche de la rangée su- 
périeure du clavier) : formatage de 
40 pistes, de la piste O0 à la piste 39. 
C'est l'option courante pour un 
lecteur 40 pistes. 

- 8 <80> (touche de la rangée su- 
périeure du clavier) : formatage de 
80 pistes, de la piste 00 à la piste 79. 
Cette option n'est à employer que 
pour des lecteurs 80 pistes (certains 
3"1/2 où 51/4). Mise en œuvre sur 
un lecteur 40 pistes (tel le lecteur 
AMSTRAD). cette option peut l'en- 
dommager (quoique les DDI-1 soient 
très robustes). 

-— P <Pistes> : formatage au gré de 
l'utilisateur entre 2 pistes extrêmes, 
qui sont au départ les pistes 00 et 
41: il est bien connu que les lec- 
teurs AMSTRAD supportent très bien 
un formatage jusqu'à la piste 41. 
L'utilisateur peut modifier les valeurs 
des pistes extrêmes grâce aux 4 
touches dont la description sulvra. 
A noter que la piste de début de 
formatage peut être supérieure à 
la piste de fin : le formatage se fera 
à rebours | 


- C <Commence»> : sélection de la 
piste de début pour modification. 

- T <Termmine> : sélection de la piste 
de fin pour modification. 

- | <incrémente> : augmente de 1] 
la valeur de la piste extrême sélec- 
tionnée, début ou fin. La valeur 
maximale est 79. Si on tente d'in- 
crémenter au-delà, la valeur repart 
à zéro. On peut incrémenter pas à 
pas par pressions successives, ou 
continuement sans relâcher la pres- 
sion. Cette sélection n'est possible 
que si l'option «P» est validée. 
D'ailleurs, dans le cas contraire, nl 
cette option «li», ni la suivante »D», 
ne sont sélectionnables : la touche 
n'apparaît pas alors en inverse vi- 
déo. 

- D <Décrémente> : diminue de 1 
la valeur de la piste extrême sélec- 
tionnée. La valeur minimale est na- 
turellement 0. Si on tente de décré- 
menter en deçû, la valeur saute à 
79. On peut comme pour «l» agir 
par pression répétée ou continue. 

- FN (touche de fonction N, soit la 
touche numérique N du pavé nu- 
mérique) : sélection du format cor- 
respondant. Cela se traduit par l'af- 
fichage en bas d'écran des carac- 
téristiques principales du format 
cholsi. Par exemple pour F1, le for- 
mat standard DATA, on peut lire «9 
secteurs (C1-C9) de 512 octets». 

- F <Formmate> : lance le formatage 
désiré. Le bas de l'écran est alors 
réservé à des messages en inverse 
vidéo. |! y a demande d'insertion 
de disque dans le lecteur désiré, 
demande réltérée jusqu'à satisfac- 
tion (N.B.: la touche <ENTER> dont Il 
est question dans les messages est 
soit la grosse sur 464/664 et celle 
marquée «retum» sur 6128, soit la 
petite carrée marquée «ENTER»). Si 
la disquette est protégée en écritu- 
re, un message le fait savoir. Tout 
est en français et Il n'y aucune diffi- 
culté à réagir aux messages. Pen- 
dant le formatage, le mot «formar- 











te» se prolonge en «formate piste 
6%, avec “0% la piste en cours de 
formatage au moment de la lectu- 
re de ces mots. 


REMARQUES 


1) Pendant la phase de sélec- 
tion d'option, une pression de la 
touche ESC provoque un efface- 
ment d'écran et un arrêt du pro- 
gramme : il y a retour au BASIC. 
FORMAT+ peut être relancé par 
RUN. Attention au fait que l'AMS- 
DOS peut être vérrouillé où non sur 
le dernier format utilisé en formata- 
ge, si l'on veut effectuer des accès 
à une disquette. Se reporter pour 
cela à mon article cité en introduc- 
tion, «TRUCS POUR L'EXPLOITATTION 
DE..+, et en particuller à ce qui 
concerne le problème du LOGIN. 

2) La pression de ESC avant le 
formatage. alors qu'est faite la de- 
mande d'introduction de disque, 
provoque l'abandon du formatage 
et le retour aux sélections. 

3) La pression de ESC pendant le 
formatage provoque son arrêt. Le 
message «Disc formaté jusqu'à la 
piste xx s'affiche. Le formatage est 
effectif Jusqu'à la piste formatée 
avant celle indiquée dans le mes- 
sage «formate piste yy». Si ce n'est 
pas clair, faites un essai. 

4) En début de formatage d'une 
disquette pas encore formatée, le 
lecteur semble s’achamer sur la dis- 
quette, comme quand on veut fai- 
re le catalogue d'une disquette en 
format non standard. Cela est tout 
à fait normal étant donné la procé- 
dure employée pour reconnaître la 
présence d'une disquette. Il n'y a 
rien à craindre, ni pour le lecteur, ni 
pour la disquette. 

5) En fin de formatage, un retour 
est effectué en piste O (grâce à 
l'instruction 1DIR). Si le format en 
piste O diffère du format qui vient 
d'être utilisé, alors l'AMSDOS 
s'acharne un peu, mais en vain, 
pour effectuer son opération de 
lecture. C'est sans conséquence 
pour le matériel (le système réagit 
parelllement en cas de format illisi- 
ble ou de piste non formatée). 


MODIFICATIONS 
POUR UN 
FORMATAGE 


DE SON CHOIX 


FORMAT+ a été conçu dans un 
soucl de simplificité d'emploi et de 
modification, afin de pouvoir for- 
mater avec le format de son choix. 
Toutes les données nécessaires à la 
description d'un format sont en li- 
gnes de DATAs. Les explications qui 
vont être données seront succintes, 
car présupposant la lecture de mon 
article précédemment publié dans 
ces colonnes «TRUCS POUR L'EX- 
PLOITATION DE...», en particulier du 
chapitre sur les DPBs, ou des con- 
naissances suffisantes en la matiè- 
re. Voyons donc le format qui n'est 
pas standard dans la liste d'origine, 
à savoir DATA+ (on a rajouté le sec- 
teur &CA aux secteurs du format 
DATA) : 

1500 DATA «DATA +» 

1510 DATA 0028,03.07 00,00D1,008F, 
00C0,0010,0000 

1520 DATA C1,0A,18,2A.E5,02,04,00, 
OO,FF 

1530 DATA C1,C6,C2,C7,C3,C8.C4, 
C9,C5,CA 

Les données sont mises en 4 lignes 
pour la clarté de la chose, mais seul 
compte leur ordre et leur cohéren- 
ce. 

- La première donnée est le nom 
du format, qui est lisible à l'écran. Il 
est préférable de le mettre entre 
guillemets pour éviter une confusion 
avec une donnée numérique ou 
surtout Un mot clé (comme DATA 
pour mellleur exemple). 

- La seconde ligne est celle des 9 
premiers paramètres du DPB, qui 
décrivent l'organisation logique des 
données sur la disquette. Toutes les 
données numériques sont en héxa- 
décimal, à 2 ou 4 chiffres, toujours 
dans un souci de clarté. 

- La troisième ligne est celle des par- 
ramètres FDC. 

- La quatrième ligne est celle des 
numéros de secteurs, dans l'ordre 
qu'ils auront physiquement sur la 
disquette. On peut écrire en effet 
les secteurs dans l'ordre que l'on 
veut. Etant donné la rotation per- 
manente de la disquette en cours 
d'accès, et les temps entre deux 
accès la suite optimale en temps 
n'est pas la suite croissante. Pour 
s'en convaincre, il n'y a qu'à for- 
mater en DATA dans l'ordre 
C1.C2.... C8,C9 et copler des fichiers 
dessus. A l'utilisation on constate vite 
la différence. Faire attention à ce 
que le nombre de secteurs soit bien 
celui indiqué dans les paramètres 


13 


FDC (2ème valeur). 

On peut se passer en général des 
formats IBM et PCW, qui ne doivent 
intéresser qu'une part infintésimale 
des utilisateurs de CPC. On n'a 
donc qu'à modifier les lignes de 
DATAs leur correspondant pour ses 
besoins personnels. Pour ceux qui 
voudralent enlever une possibilité 
de formatage ou en ajouter une, il 
suffit de modifier en conséquence 
la ligne 980 : selon le format choisi 
(paramètre «fmt») Un «RESTORE» est 
effectué sur la ligne du nom de ce 
format («DATA», «DATA +», «|BM»....) : 
980 IF fmt=1 THEN RESTORE 1500 ELSE 
… IF fmt=5 THEN RESTORE 1700 

Rien de bien sorcier comme on peut 
le constater. Le reste (affichage, re- 
définition de touche du pavé nu- 
mérique) est entièrement géré par 
le programme. 


POINTS DE DETAIL 
SUR LE PROGRAMME 


Pour ceux qui se demanderaient 
comment j'al pu gérer des problè- 
mes disque tels la reconnaissance 
de l'absence d'une disquette ou de 
sa protection et qui auralent la 
flemme de se plonger dans le pro- 
gramme (suffisamment commenté 
pour s'y retrouver en quelques heu- 
res...), Je vais donner quelques ex- 
plications. 

1) Pour Interdire toute question 
«Retry, ignore or Cancel ?», il faut 
«POKEr» en &BE78 la valeur &FF. Il 
n'y a plus d'interruption intempesti- 
ve du programme par cette ques- 
tion, mais le message «Bad com- 
mand» est toujours envoyé à 
l'écran. 

2) Comment empêcher l'apparition 
d'un «Bad command» ? : ce messa- 
ge est expédié à l'écran sur le ca- 
nal 0. On peut le rendre invisible en 
définissant une fenêtre O aux stylo 
et papler identiques. Ce qui fût fait. 
3) Comment détecter malgré tout 
l'apparition d'un «Bad com- 
mand» ? : il faut nettoyer avant 
l'opération sur disque la fenêtre 0, 
ce qui envoie le curseur de texte 
de cette fenêtre en position 1,1. 
Après l'opération sur disque, si un 
«Bad command» s'est affiché, le 
curseur a changé de position, ce 
que l'on vérifie par un POS(#0) ou 
VPOS(#0). 

Ces 3 astuces mises en œuvre per- 
mettent de détecter, selon le mo- 
ment d'apparition d'une erreur, 








l'absence d'un disque ou sa pro- 
tection en écriture, voire même sa 
non lisibilité. Cependant la présen- 
ce d'un disque non formaté est 
dans ces conditions confondue 
avec son absence | Un disque n'est 
en état non-formaté normalement 
qu'une fois (à moins qu'on ne 
s'amuse à le déformater) : on n'a 
beau effectuer beaucoup plus de 
(re-)formatages de disques (déjà 
formatés), un utilitaire de formatage 
doit savoir formater une disquette 
non formatée. Volci comment a été 
résolu le problème : 

- l'instruction | DRIVE.@a$ où la va- 
rlable a$ contient le nom du lec- 
teur, soit À où B, détecte très vite 
l'absence ou non de disque, tandis 
que s'il y a une disquette non for- 
matée, le lecteur s'acharne à ef- 
fectuer une lecture d'identification 
de piste. Le comportement est donc 
totalement différent et le temps 
d'opération dans ces 2 cas de si- 
tuation est totalement différent. On 
a donc recours à la fonction TIME 
(qui donne, rappelons-le, la valeur 


du chronomètre du CPC, qui est in- 
crémenté tous les 1/300 de secon- 
de) pour les distinguer, comme le 
montre la ligne 950 : 

tI=TIME: I DRIVE.@aS:tI=TIME- 
tl:e=VPOS(#0)"MAX(SGN(1000-t!,0)) 
Pour une absence de disque, t!, qui 
est donc un intervalle de temps, est 
de l'ordre de 300-400, tandis que 
pour la présence d'un disque non 
formaté c'est de l'ordre de 2400 ! 
Pour la formule utilisant t!, la limite a 
été prise comme étant 1000. Cette 
valeur peut être remise en question 
si l'utilisateur modifie les Valeurs pour 
les temps d'attente ou d'accès du 
lecteur. La formule MAX(SGN(1000- 
+!),0) délivre un 0 pour un t| supérieur 
ou égal à 1000 (disque non forma- 
té) et un 1 sinon (disque manquant). 


Ces quelques explications avaient 
pour but de montrer que l’on peut 
très bien gérer des erreurs du systè- 
me disque sans une once de routi- 
ne en langage machine : un POKE, 
du BASIC et rien que du BASIC, et le 
tour est joué | 


CONCLUSION 


Je ne voudrais pas me vanter 
mais je n'ai jamais trouvé de forma- 
teur de disque aussi pratique que le 
mien, surtout pour la modification 
des formatages possibles : en moins 
de 2 minutes, avec l'habitude, j'ai 
fait les modifications nécessaires 
pour formater comme Je veux une 
disquette. J'espère que d'autres 
apprécieront la valeur de FORMAT+. 
Dans mon précédent article, déjà 
plusieurs fois cité, j'expliquais tout 
(ou presque) sur les formats de dis- 
quette (Via les fameux DPBs). Cette 
fois je donne les moyens de passer 
aux actes, en offrant la possibilité 
de formater à son gré. J'espère que 
nous nous retrouverons très bientôt 
pour un petit transféreur de fichiers 
entre des disquettes de formatages 
différents. Vous serez alors en pos- 
session de toutes les armes pour 
qu'un formatage spécial de dis- 
quette ne reste pas qu'une belle 
idée inemployable. A bientôt | 


289 ORIGIN 9,0,9,649,9, 499:READ t,i,t$,r,e:PRINT CHR$(2 DWP 








3)CHR$(3):TAG:PLOT -9,#,e:x=(t-1)#16:y=(26-i)x16:MOVE x 
-2,y-2:PRINT t$;:PLOT -9,9,r:MOVE x,y:PRINT t$;:TAGOFF: 


399 READ xt(c),yt(c),id$(c),choix$(c):WHILE xt(c)<>99:P 
RINT FN cle$(c):xt(c)=xt(c)+2:PRINT FN unsel$(c):id$(#) 
=id$(#)+"ù "+id$(c):c=c+t1:READ xt(c),yt(c),id$(c),choix 


328 READ choix$(c):WHILE choix$(c) O"FIN":fat=fmt+t:xt( 
c)=27:yt(c)=4+fmtx2:id$(c)="F"+CHR$(48+fmt):PRINT FN cl 
e$(c):xt(c)=xt(c)+3:PRINT FN unsel$(c):id$(4)=id$(#)+"ù 


IUIAMELEETTENPES ES EFEEELESETIEETEESFEEELS) )RB 

119 ‘x MULTIFORNATEUR pour tous lecteurs * RC 

129 ’+ sur CPC 464, 664 et 6128. * )RD PRINT CHR$(23)CHR$ (8) 
138 ‘# copyright Yannick GOUR (c)1999,91 x RE 299 ? 

NUE TEETEETEPTEESETS FEES EIEEZTEETTEES IS) >RF 

159 ? >RG 

169 )RH 

179 'xuxx INITIALISATIONS 4444 )RJ $(c):WEND 

189 >RK 319 ? 

199 CALL &BB9G:MEMORY 16383:POKE &BE78, 1:DEFINT a-z:DIN DBJ 
xt(29),yt(29),id$(29),choix$(29),sect1$(9),nbsect(9),1 

ngsect (9) 

289 READ i,n,k,s:INK 8,i:INK t,n:INK 2,k:INK 3,s5:BORDER DHR "#tid$(c):c=cti{ 


i:MODE 1:WHILE WO7:READ w,i,n,d,o,v,s:WINDOWKw, i,n,d, 
O:PAPERHw, v: PENHu, 5 :WEND 


335 FOR i=1 TO 19:READ a$:NEXT:sect1$(fmt)=a$:READ afin 
bsect(fmt)=FN dec(a$):FOR i=1 TO 4:READ a$:NEXT: Ingsect 


)TB 
WF 


RE 
)JV 


218 c=1:dpba=UNT(PEEK(&BE42)+256*PEEK(&BE43) ):colcle$=C >UA (fmt)=128x2"FN dec(a$):FOR i=1 TO 4+nbsect(fnt):READ a$ 

HR$ (14)+CHR$(2)+CHR$(15)+CHR$(1) :colsel$=CHR$ (14) +CHR$( :NEXT:READ choix$(c):WEND 
3)+CHR$(15)+CHR$(1):colnorn$=CHR$(14)+CHR$(G)+CHR$(15)+ 348 ? )RH 
CHRS(4) 354 )RJ 
229 DEF FN dec(a$)=VAL("&"+a$):DEF FN ch(a)={6#(açi9)+( DVK | 368 "#x#x ACTUALISATION DE PARAMETRES ET DE L'ECRAN ##x% DRK 
a MOD 18):DEF FN index(a$)=(INSTR(id$(),a$)+2)ç3:DEF F 4 

N msbla)=INT(a/256) AND 255:DEF FN Isb(a)=a AND 255 378 ? )TA 
239 DEF FN cle$(a)=CHR$(31)+CHR$(xt(a))}+CHR$(yt(a))+col DHR 389 FOR i=1 TO fmt:KEY 128+i,"F"+CHR$(48+i):NEXT:FOR i= RG 
cle$tcolsel$+id$(a)+colnorm$+":":DEF FN sel$(a)=CHR$(31 fat+1 TD 9:KEY 128+i,"":NEXT:f=FN index(" F"):p=FN inde 
)+CHR$(xt(a))+CHR$(yt(a))+colsel$+choix$(a)+colnorn$:DE x(" P") 

F FN unsel${a)=CHR$(31)+CHR$(xt(a))+CHR$(yt(a))+colnorm 398 iecteur=f:pistes=4g:debfin-#:debut=#:fin-=41:fnt=t:c )QH 
$tchoix$(a) hlect=FN index(" A"):chpiste=FN index(" 4") :chdebf in=FN 

24ÿ RG index (" C'"):chfnt=FN index("F1"):PRINT FN sel$(chlect) 

258 RH ;FN sel$(chpiste);FN sel$(chdebfin);FN sel$(chfnt ) : GOSU 

269 *xuxx CREATION DE L'ECRAN #x#x RJ B 1239 

278 ? >RK 499 ? RE 














Hg DRF (i):chpistezi 

429 ‘xxxx ROUTINE DE FORMATAGE #x#4 RG 669 RETURN 

439 ' >RH 679 ? 

449 routfmt=HIMEM+3:FOR i=routfmt TO routfmt+{4:READ a$ )RQ 689 ’#xxx PISTES DEBUT ET FIN #4#+ 

:POKE i,FN dec(a$):NEXT:table=routfmt+18:POKE routfnt+6 698 ? 

FN Isb(table):POKE routfmt+7,FN nsb(table):a=routfmt+{ 789 IF clet=" C" THEN debfin=# ELSE debfin={ 


2:POKE routfmt+9,FN 1sb(a):POKE routfnt+19,FN msb(a) 
459 ? 

469 

479 "xxxx PARAMETRAGE *##% 

489 

499 WHILE INKEY(66) 


719 IF chdebfintoi THEN PRINT FN unsel$(chdebfin);FN se 


>RK I$(i):chdebfin=i 
)TA 729 RETURN 
)TB 738 ? 


)TC 749 *x#4xx INCREMENTER/DECRENENTER PISTES EXTREMES ##4x 


)NQ 758 ? 


598 FOR i={ TO 2ÿ:cle$=INKEYS:NEXT:WHILE cle$="":cle$=] >KU 768 IF pistes)9 THEN RETURN 


NKEYS$ :MEND:cle$=UPPER$(cle$)+INKEY$:1F LEN(cle$)=1 THEN 


cle$=" “icles 


519 i=FN index(cle$):0N i GOSUB 589,589,649,649,649, 798 DCR 788 IF cle$=" D" THEN IF debfin=ÿ THEN debut=(debut+79) 


, 789,760, 760,999,849,840, 849,848, 849,849 

529 WEND 

539 

549 CLS:END 

554 

569 *xxux CHOIX DU LECTEUR #x#x 

578 

588 IF cle$=" A" THEN lecteur:ÿ ELSE lecteur=1 


| MOD 88 ELSE fin=(fin+1) MOD 89 


NOD 89 ELSE fin=(fin+79) MOD 89 
)CF 798 GOSUB 1229:PRINT FN sel$(p) 
)RJ 849 RETURN 


)CE 814 ? 
DTA 828 4x SELECTION DU FORMAT #x#x 
)TB 838 


)TC 848 fat=VAL(RIGHT$(cle$,1)):1F chfmt<>i THEN PRINT FN u 


>Py nsel$(chfat);FN sel$(i):chfnt=i:GOSUB 1239 


599 IF chlect@oi THEN PRINT FN unsel$(chlect);FN sel$(i PR 858 RETURN 


lichlectz=i 

699 RETURN 

619 

629 ’xxux PISTES A FORMATER +##% 
638 


pistes=88 ELSE pistes:4:GOSUB 1228 


869 
)ZB 879 "xxxx FORMATAGE #x#4 
RH 889 


)R] 89$ "pistes à formater 


)RK | 9ÿÿ IF pistes=48 THEN pistdeb=ÿ:pistfin=30 ELSE IF pist 
649 IF clet=" 4" THEN pistes=4ÿ ELSE IF cle$=" 8" THEN )TJ | es-89 THEN pistdeb-f:pistfin=79 ELSE pistdeb=debut:pist 


fin=fin 


658 IF chpiste(>i THEN PRINT FN unsel$(chpiste);FN sel$ >VK 919 pas=SGN(pistfin-pistdeb):IF pas=ÿ THEN pas={ 


779 IF cle$=" I" THEN IF (debfin=8) THEN debut=(debut+i 


>ZH 
)TD 
TE 
)TF 
)LL 
)YR 


)ZE 
)TA 
)TB 
TC 
ND 
>MN 


MR 


)ZG 
>ZD 
RK 
DTA 
)TB 
)LL 


)2J 
TE 
>TF 
TG 
>TH 
BK 


>VD 











allo 
CPC infos 


Attention, notez bien ce qui suit : 

Dès le mois de septembre, tous les mercredis 
de 14 h à 17 h, la rédaction se tiendra à votre 
disposition au 99 52 98 11 pour tous renseigne- 
ments techniques. En dehors de ce créneau les 
réponses techniques se feront par courrier (n’ou- 
bliez pas de mentionner votre adresse et joignez 
un timbre pour la réponse) ou bien par Minitel 
sur le 3615 code : MHZ. 

















928 ? 

932 ’ lecteur ou formater 

94ÿ CLS#1:1$=CHR$(65+ lecteur) :LOCATEHE, 2, 1:PRINTHG, "Dis 

c dans le lecteur "1$", puis CENTER?" 

959 e=Z:WINDOW SWAP 8,7:MHILE e)t:WHILE INKEYS$CCHRS(13 
lt1F INKEY(66) THEN WEND:CLS:t'=TIME:UDRIVE, à1$:t'=TIME 

-t!:e=VPOS(#@)xMAX(SGN(1849-t1),9):WEND:WINDON SWAP 9,7 
:GOSUB 1239 ELSE WINDOW SWAP 8,7:GOSUB 123$:FOR i=4 TO 

598 :NEXT :RETURN 

968 

978 ecriture parametres de disque 

988 IF fmt=1 THEN RESTORE 1599 ELSE IF fmt=2 THEN RESTO 

RE 1558 ELSE IF fmt=3 THEN RESTORE 1649 ELSE IF fat:4 T 

HEN RESTORE 1659 ELSE IF fmt:5 THEN RESTORE 1788 

998 READ a$:dpb=dpbatlecteur+64:j=9:F0R i=g TO 18 

1959 READ a$:1F LEN(a$)=4 THEN POKE dpb+j,FN dec(RIGHT$ 
(a$,2)):POKE dpb+jti,FN dec(LEFT$(a$,2)):j=j+2 ELSE POK 

E dpb+j,FN decta$):j=5j+1 

1918 NEXT 

1929 ‘ 

1939 "modif. de routine de formatage et ecriture table 

de format 

1948 POKE routfnt+t{, lecteur:POKE routfmt+2, pistdeb:POKE 
routfnt+4,FN dec(sectt$(fnt)):j=9:1=PEEK(dpb+&14):FOR 
istable TO table+tnbsect(fmt)+4-4 STEP 4:POKE i, pistdeb: 

POKE i+1,9:READ a$:POKE i+2,FN dec(a$):POKE it3,1:NEXT 
1958 

1969 "fornatage premiere piste; disquette protegee? 
1978 LOCATE xt(f)+LEN(choix$(f)),yt(f):PRINT" piste ":H 
EX$SCFN cb(pistdeb),2):WINDOW SWAP 9,7:e=2 

1989 VHILE e>1:CLS:üDRIVE, à1$:CALL routfnt:e=(PEEK(&BE4 
D) AND 18)+VPOS(##):IF e>1 THEN LOCATE#6,1,1:PRINTHE,"! 
nserer disc non protege, puis CENTER)"; :WHILE INKEYS$OC 

HR$(13):1F INKEY(66) THEN VEND ELSE e=ÿ 

1999 WEND:UINDOW SWAP 9,7:G0SUB 1238:1F e=ÿ THEN LOCATE 
XECFI+LEN(choix$(f)),yt(f):PRINT SPC(9):FOR i=g TO 58 
:NEXT: RETURN 

1198 

1118 ’fornatage 

1128 FOR piste=pistdeb+pas TO pistfin STEP pas:LOCATE x 
tOPJ4LEN(choix$(f)),yt(F):PRINT" piste ":HEX$(FN cb(pis 
te!,2):PÜKE routfmt+2,piste:FOR i=table TO table+nbsect 
(fmt)*x4 STEP 4:POKE i,piste:NEXT 

1139 IF INKEY(66) THEN CALL routfmt:NEXT ELSE CLSH1:LOC 
ATE#6,5,1:PRINT#6,USING"Disc fornate jusqu'a la piste # 
t'ipiste-pas 

1148 ! 

1159 ‘retour en piste DIR et remise en etat de l’ecran 
1159 WINDOW SWAP 9,7:üDIR:WINDOW SWAP 9,7:1F piste(=pis 
tfin THEN FOR i:9 TO 3GBD:NEXT 

1179 LOCATE xt(f)#LEN(choix$(f)),yt(f):PRINT SPC(9):G0S 
UB 1239 

1188 RETURN 

1198 ? 

1289 ‘xxxx ROUTINES DIVERSES #xxx 

1219 ? 

1228 choix$(pi="pistes "+#HEX$S(FN ch(debut),2)+"-"+HEXS$( 
FN cb(fin),2):RETURN 


1239 LOCATE#I,1,1:PRINT#I, USING" ## secteurs ("+secti$ 


)TB 
)TC 
)PW 


v 


GD 


)KK 
MG 














(fmt)+"-"4HEXS(FN dec(secti$(fmt))+nbsect(fnt)-1,2)+") 
de #K## octets "inbsect(fmt}, Ingsect(fmt):RETURN 
1249 

1258 

1268 "xxx DONNEES POUR L'ECRAN ###x# 

1279 ! 

1289 DATA 14,9,26,21 

1299 DATA 9,1,49,1,25,9,1 

1399 DATA 1,2,49,25,25,8,3 

1319 DATA 6,2,49,25,25,3,1 

1329 DATA 7,1,1,1,24,8,8 

1338 

1349 DATA 5,3,MULTIFORMATEUR pour tous LECTEURS, 1,2 
1359 DATA 7,6,A, lecteur A 

1364 DATA 7,8,B, lecteur B 

1378 DATA 7,11,4,49 pistes 

1388 DATA 7,13,8,89 pistes 

1399 DATA 7,16,P,pistes 99-41 

1499 DATA 7,17,C, debut 

1419 DATA 16,17,T,fin 

1429 DATA 8,18, 1, incremente 

1438 DATA 8,19,D,decrenente 

1449 DATA 19,22,F,formate 

1458 DATA 99,9,8,F 

1469 

1479 ! 

1489 ‘xxxx DONNEES DE FORMATS xxx 

1498 

1549 DATA "DATA" 

1519 DATA 9924,83, 97,00, 09B3,003F, 90C0, 08910, 0009 
1529 DATA C1,99,24,52,F5,92,04,899, 00,99 

1538 DATA C1,C6,C2,C7,C3,C8,C4,C9,C5 

1549 

1559 DATA "DATA+" 

1569 DATA 9928,93,97,00,00D1,003F, 00C0,0019,0000 
1578 DATA C1,8A,18,2A,E5,92,94,00,09,FF 

1588 DATA C1,C6,C2,C7,C3,C8,C4,C9,C5,CA 

1599 

1699 DATA "IBM" 

1619 DATA 9928,93,07, 09, 099B,003F,90C0,0010, 001 
1629 DATA 91,96,24,59,E5,02,84,90,90,00 

1639 DATA 91,02,83,94,95,96,97,08 

1649 

1659 DATA "PCW" 

1664 DATA 9924,03,07,99,OGAE, 003F, G0C0,0019,9091 
1679 DATA 891,99,2A,52,E5,02,94,90,98,FF 

1684 DATA 91,96,92,97,93,06,804,99,ÿ5 

1699 

1798 DATA "VENDOR" 

1719 DATA 9924,93,07, 00, 0GAA, 003F, 98C6, 0919, 4902 
1728 DATA 41,99,2A,52,E5,92,64,00,00,09 

1738 DATA 41,46,42,47,43, 48,44, 49,45 

1749 

1759 DATA FIN 

1768 

1778 ‘ 

1788 ‘xxxx ROUTINE DE FORMATAGE *x#x# 

1799 

1899 DATA 11,9,9,E,9,21,9,9,DF,9,9,C9,52,C6,7 


Xk 
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)YB 
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TJ 
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DUY 
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)0B 
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UT 
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>CX 
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>YH 
VA 
NX 
>DA 
DT 
)YD 
>XD 
NU 
DEV 
BB 
)YJ 
HZ 
NL 
)DJ 
>BL 
VE 
KE 
)YG 
>YH 
YJ 
>Yk 
XT= 




























































3615 JESSICO 






AiRelUr74 
CONSOLES MEGADRIVE À GAGNER 


TOP HITS 


C D C 
TOP 20. 188/248 3 D CONSTRUCTION KIT 2/24 uand 
Licence to KI +P 47 +C.Chaplin ADIDAS CH. SOCCER 125/175 

+ Batty + Game over 2 + Ace 1 ADS . 165/225 

+ Mange cailloux + MLM 3D +Aspar GP ALIVE .195 UTILITAIRES 

+ Devil Castie + Hotshot + Shockway ARMALYTE . 25/165 

Rider + Battle Valley + Buggy 2 ART DE LA G .. 245 ADVANCED OCP ART STUDIO 
+ 3D Grand Prix + Grand Prix 500 + Rex B. CLOUGH EURO SOC 
+Zaxx + Super Sky + Light force BACK THE GOLD AGE . 
COMPIL EXCEPTIONNELLE . 1968/2485 BACK TO THE FUTURE 
Turbo Cup +Saplens +Skweek +Zox  BADLANDS 

+ Maracaibo + Mobileman + Bumpy ss 

+ Cobra + Bactron + Aigle d'Or + Kya 
HIT SPORT 106/245 
Crazy shot + Space Racer + Rally !! 
+Tennis 30 +Turbo cup + Karateka 
POWER UP 158/225 
Tumican + Chase HQ 


ALLENLLE 





















105/145 CARTOUCHE BASIC AMSTRAD 
97/145 COMPTABILITE ALIENOR . 
.… 245 COURS DE SOLFEGE 1 
105/155 COURS DE SOLFEGE 2 
7/145 DESSIN TECHNIQUE 6128 



























145/195 DISCBASE 
145/195 DISCOLOGY v. 
145/195 FACTURES FACIL 





74, AMS 1 HAD 


YIALED E FAI LEZ 





es prix 


ES man 


ALLEMAND CONFIRME 4/3 
ALLEMAND DEBUTANT 6/5, 
ANGLAIS CONFIRME 4/3e 
ANGLAIS DEBUTANT 6/5e... 
DONALD ALPHABET MAGIQUE . 145/195 GAME LIGHT 
375 ECRIRE re FAUTES V.1 6/3e 
ECRIRE SAN V.2 6/3e 
145/195 DESSIN TECHNIQUE TURBO 6128. A LABYRINTHE D'ORTHOPHUS 
350 LABYRINTHE D'ERRARE 
285 LABYRINTHE aux CENT CALCULS.. 


VIF 

















ont si bas; D 
EL _mNrenDo camesov | 
[ NINTENDO GAMEBOY | 


. 220 
220 CASE RON : 195 SOLAR STRIKER 
5 SOLOMAN'S CLUB 
SPACE INVADERS 
+ 245 SPACE WARRIOR 
: 175 SPIDERMAN … 
+ 229 SPUD'S ADVENTURE 
: 229 SUPER DEFORMER 






NATHAN 





























220 ILLUMINATOR 
. 220 LIGHT BOY 
. 220 ALLEY WAY 
. 220 AMAZING PENGUIN 



































BASES LOADED . 229 
+ Rainbow Island + Altered Beast 105/145 FACTURATION + STOC .1550 LABYRINTHE aux MILLE CALCULS. 220 Bi Tux 220, SUPER MARIOLAND 
155/225 GESTION DOMESTIQUE. 249 LABYRINTHE ANGLOMANIA 1 220 BATTLESHIP : 229 SWORD OF HOPE … 
148/198 COUGAR FORCE . 275 GESTION BANCAIRE 612 245 LABYRINTHE ANGLOMANIA 2 220 BEETLEJUICE . 229 TAIL GATOR … 












CREATURES 
CRETE 1941 
148/228 DEFENDER OF THE CROWN .… 195 GRAPHEUR 
145/195 HERCULE 2 
145/195 HOUSE MUSIC SYSTEM 
97/145 IMPRESSION 
05/155 IMPRIM'IMAG 
125/165 INTEGRE (L') 1 
125/155 INTERPRETE 2 
145/195 KENTEL LE SERVEUR MINITEL 
.… 225 KMKFILE … 
105/155 LA SOLUTION. 
145/195 MAXAM K7 ou disc 
… 195 MAXAM rom … 
105/145 MENTEL minitel malin + câble . 
105/165 MEPHISTO ….. 
195/245 MULTIFACE 2 pour CPC 
97/145 MULTIFACE 2 pour CPC 
05/155 MUSIC PRO . 
105/155 THE INSIDER di 

































+ Shadow Warriors + Altered Beast 
SUPER SIM PACK 1485/1068 
Snowstrike + Italy 90 

+ Heavy metal + Turbo out run 

















EXTERMINATOR 
182/240 EXTREME …. 
F16 COMBAT PILOT 
Mystical + Pinball Magic +Light corridor FUGITIF 
CHALLENGERS 162/289 GAUNTLET 3 
Super ski + bomber + kickoff 

+ Stunt car racer + protennis tour 
FESTIVALIA 182/198 GOLDENAXE 
Great courts + Trivial poursuit 

+ S.Wonderboy +P47 + Action fighter 
BIG BANG 2 128/182 
Rick Dangerous + Chicago 

+H,. Patrol + Asphar + Beyond Ice P. 





























248 KICK OFF 2. 
LA SECTE NOIRE 
LOOPZ … 

142/198 LOTUS ESPRIT TURBO 

MANCHESTER U. EURO 

MEGA PHOENIX 


135/169 PACK GESTION 
.… 175 PACK PRINTER 6128 
105/145 PROTEXT K7 ou disc. 
105/155 PROTEXT rom 
. 105/155 PAGE PUBLISHI 
. 97/145 PAGE PUBLISHER PICTU 
145/195 PENTEL . 
145/195 PSYCHO-TEST. 
97/145 SPRITES ALIVE 
.… 195 TASWORD + MAIL MERGE 
145/195 TRAFFIC CB …. 
105/155 TRAFFIC EMISSION 
105/155 TRAFFIC SWL 
105/155 UTOPIA rom .… 
105/155 HORLOGE ASTRALE 
105/155 MIROIR ASTRAL 

145/195 PORTRAIT ASTRAI 
105/155 LE TAROMANCIEN 
195/245 GRAPHOLOG . 





Manoir de Morteville + Troubadour 
+ Rody et Mastico 
CRAZY STARS 

Crazy cars2 + Wildstreets 
+ Cauldron 2 + Gazza 
LES CHEVALIERS 142/106 
Dynasty Wars + Strider + Black Tiger 
Ghouls N'Ghoust 

SHQA ARCADE TURBO. 142/196 
Turbo outrun + Superwonderboy 
Crackdown + Enduro Racer 
COLLECTION N° 2 

Dragon Ninja + Beach Volley NARCO POLICE . 
+Wec Le Mans +B.Bobble +Wonderboy NAVY SEALS 
+Arkanold 2 +Renegade + Match Day 2 NIGHT SHIFT 
+ Basket Master + Super Sprint 

+ Flying Shark 

STARS D'HOLLYWOOD.... 142/219 


























’ LABYRINTHE LEXICOS … 
s7 BYE EL el sie _. LABYRINTHE DES PHARAONS 
275 LANGUE FRANÇAISE CE 1 .. 
395 LANGUE FRANÇAISE CE2 
350 LANGUE FRANÇAISE CM1 
240 LANGUE FRANÇAISE CM2 . 
280 LANGUE FRANÇAISE 6E . 
425 LANGUE FRANÇAISE 5E . 
280 LANGUE FRANÇAISE 4E . 
570 LANGUE FRANÇAISE SE . 
199 NATHAN MATHS 3E 
595 NATHAN MATHS 4E 
NATHAN MATHS 6/51 
NATHAN FRANÇAIS CP/CE 1 
NATHAN ECOLE FRANÇAIS CE2 
NATHAN ECOLE FRANÇAIS CM1 .. 220 DR MARIO … 
NATHAN ECOLE FRANÇAIS CM2 . 
525 NATHAN ECOLE MATHS CP/CE 1 
NATHAN ECOLE MATHS CE2 
129 NATHAN ECOLE MATHS CM1 


NRJ 1 182/240 IRON LORD 220 RAMDOS 279 NATHAN ECOLE MATHS CM2 FISH DUDE NAVY SEALS … 
North and south + Hostages IRON MANS 97/145 RODOS 299 TRAIN EXPRESS DE DINGO … FLIPULL … NIGHT BREED . 
Tintin sur la une + Fire and forget J. KW.C. SQUASH . 97/145 ROMDOS 299 MICRO C FORTRESS OF FEAR 

JUDGE DREDD 97/145 ROMBOARD 349 ALLEMAND PRIMAIRE . GARGOYLE'QUEST . 


675 ANGLAIS PRIMAIRE . 
475 ESPAGNOL PRIMAIRE . 

ITALIEN PRIMAIRE 
399 ANGLAIS 4/3e … 
CALCUL RAPIDE 
DECLIC LECTURE 
EDUC. MATERNELLI 
EDUC. MATERNELLE 2 
EUAMS .….. 
425 EQUATIONS. 
189 FRANÇAIS SONS 
249 FRANÇAIS-CM … 
249 GEOGRAPHIE PRIMAIRE 
299 GEOMETRIE PLANE 
325 GRAMMAIRE 6/5e 
295 LECTURE CP 
295 MATHS 2E CYCLE 
290 MATHS 2E CYCLE 
690 MATHS 3E 






























0 BOXXLE . 
. 220 BUBBLE BOBBLE. 
. 220 BUBBLE GHOST 
. 220 BUGS BUNNY 
: 220 BUGS BUNNY 2. 






+ 229 TASMANIA STORY 

: 229 TEENAGE M.TURTLE NINJA . 
: 229 TENNIS . 

: 189 ULTRAMAN CLUB 

+ 229 VAM KIL/CAST VANIA . 

* 189 VOLLEY FIRE 

: 229 WORLD BOWLING 

+ 229 WWF SUPERSTAR 

+ 229 WORLD CUP SOCCER 

- 175 zoins … 


: 229 
5e CARTOUCHE GX 


CONSOLE GX 4000 


























220 COSMO TANK … 
220 CURTIS STRANGE GOLF 
220 DEAD HEAT SCRAMBBLE 
220 DOUBLE DRAGON 


































BARBARIAN 2 . 
BATMAN 

CHASE HQ 

CRAZY CARS 2 
EPIC . 

FIRE AND FORGET 
KLAX . 








220 PRAGON TAIL 














FINAL FANTASY 


















OP. THUNDERBOLD. 


GHOSTBUSTERS II 
GO GO TANK 
GREMLINS 2 







ROBOCOP 2 
SWITCH BLADE 
TENNIS CUP 2 






HATRIS 
HEIANKYO ALIEN . 
199 HUNT FOR RED OCT! 
199 HYPER LOAD RUNNER 
170/199 IN YOUR FACE 


170/199 ISHIDO … 
170/199 JEOPARDY 















PERIPHERIQUES 


9 SCANNER DART DISC ou K7 

DIGITALISEUR VIDI . 
LECTEUR CASSETTE 
75 MULTIFACE 2+LE COPIEUR PLUS. 
75 MULTIFACE 2+LE COPIEUR CPC. 
29 SYNTHE VOCAL TMPI DISC/K7 … 545 
29 SYNTHE VOCAL TMPI#HP DISC/K7. 625 
29 7 LOGICIEL Educt. voca 5 

























































MALIBU BEACH 
MARUS MISSION 
170/199 MEGA MAN . 
170/199 MERCENARY 









Batman +Indy Action + Ghostbusters 2  PICKN PILE … 155/195 MATHS 4E 170/199 MOTOCROSS MANIA 5 DMP 3160 +PROTEXT 

Robocop PINBALL MAGIC 145/189 JOYSTICKS MATHS 5€ . 170/199 MYSTERIUM . ss EXT. MEMOIRE 64K/46. 

LES GEANTS DU SPORT 198/280 PLAYER MANAGER 135/175 MATHS 6E 170/199 EME 9 EXT. MEMOIRE 256K/6128 

Kick off + Great courts + TT Race PLOTTING 97/145 DOUBLEUR DE JOYSTICK. 49 MATHS CE 170/199 MR OU 29 CRAYON OPTIQUE Cassette " 
Foot Manager 2 +Emelyn Hugues PREDATOR 2 . 105/145 PHASOR ONE (+ MONTRE) 109 MATHS-CM 199/250 OPERATION C 29 CRAYON OPTIQUE Disquette 325 
Bobslelgh + 3D Grand Prix PRINCE OF PERSIA 145/195 QUICKJOY JUNIOR 59 MATHS-CP. 199 PACHINKO TI 75 













105/155 QUICKIOY 2... 






LES BATTANTS 1862/2358 R.B.I. 2 … 















CLAP CINE 196/280 SAINT DRAGON 




























Ghostbuster + Allen + Wonderboy S.CiI. : 

Back the future + Quartet +Eydolon +  SDAW 97/145 KONIX THE NAVIGATOR 

C. Chaplin + Tuer n'est pas jouer + SHADOW DANCER 105/155 KONIX SPEED KING …. 
Permis de tuer + Vivre et laisser mourir  SHERMAN M4 165/225 KONIX SPEED KING AUTOFIRE 
WHEELS OF FIRE 182/248 SIM CITY … 145/195 COMPETITION PRO 


Turbo out Run + Chase HQ 
Hard Drivin + Powerdrift SLIDERS . 

[QASTAR 1862/2589 SPIRIT OF 
Navy moves + Exolon + Commando STAR CONTROL 
Battle valley +Bombjack +AirWoïf +1942 SUPERCARS … 
Scoobldoo + Ghost'Goblins + Saboteur SUPER MONACO GP. 
Battle ship + Bati + Buggy 2 + 


97/145 
195 WICO THE BOSS 


1155 WICO ERGOSTICK 
105/165 WICO 3 WAY . 


SKULL + CRUSH BONE: 


105/145 


Crépuscule Naja +Tallsman d'Osiris SUPER SKWEEK 145/195 Uniquement en disquette 
LES FOUS DU VOLANT —— 175/228 SWAP …… 195 N°1 - ARKANOID 1 +2 
A.P.B. + Buggy Boy +TT Racer SWITCHBLADE 97/145 N°2 - GAUNTLET 1 +2 


- OUT RUN + ROAD BLASTER 
105/155 N°4 - END.RACER + SUPERHANG ON 
162/195 N°5 - IK++YIE AR KUNG FU 
125/165 N°6 - GRYSOR + GREEN BERET 
105/155 N°7 - CALIFORNIA + WINTER GAMES 
125/165 N°8 - STREET FIGHTER +TIGER ROAD 
105/155 N°9 - PLATOON + PREDATOR 

97/145 N°10 - CRAZY CARS + SUPER SPRINT 
105/155 N°11 - BUB.BOBBLE + FLYINGSHARK 
145/175 N°12 - ACE OF ACES +INFILTRATOR 
145/195 N°13 - RENEGADE +T. RENEGADE 
s - TOP GUN + SLAP FLIGHT 
- ROLLING THUNDER +RYGAR 
- D. THOMPSON + SUPER TEST 


Actionfighter + Aspar Grand Prix 
+ Buggy 2 
MONDE DES MERVEILLES . 1458/1986 TENNIS CUP 
New Zeland Story + Rainbow Island THE SEARCH 
Super Wonderboy + Bubble Bobble TOKI 
LES FOUS DU FOOT 178/225 TORTUES CO! 
Kick off + Foot Manager 2 TOTAL RECALL …. 
Figthing soccer + Emelyn Hugues TRACKSUIT MANAGER 2 . 
LES JUSTICHERS 2 148/198 TURRICAN 2 . 
Ghostbusters 2 +Cabal +0. Thunderboit ULTIMATE GOLF 
nn NOusEs MEET 
WRATH OF THE DEMON 
Housse complète claviertécran 
HOUSSE 6128/464 PLUS 99 
HOUSSE 464 CPC 99 CASSETTE D'AZIMUTAGE. 














HOUSSE 6128 CPC 
HOUSSE DISC FD1/DD11 
HOUSSE DMP 2000/21 
HOUSSE DMP 3000/3160 
HOUSSE PCW 8256/8512 129 MOUSE MAT (tapis) … 
HOUSSE CITIZEN 120 D 79 ETIQUETTES DISC 3° LES 100 
nn un un us un us uns CN CRU CUS GUN GUN CNRS CUS CUS CUS CUS OS 


NOUS LIVRONS TOUJOURS LES DERNIERES VERSIONS k à 
a retourner à 


BON DE COMMANDE £WPRE£ESS 
GAGNEZ DU TEMPS ! Commandez par > 93,51,61.30 - 93. 97.22.00 


Prix 


- WONDERBOY +WIZZ BALL 
- QUARTET + RAMPAGE 





79 SUPPORT IMPRIM. 80 Col. 
79 SUPPORT MONITEUR 12-14 





- THUNDERBLADE + 1943 














TITRES (garantie echange immediat )  [Qte 


Montant 

















PORT : LOGICIEL JEUX 20 F 
IMPRIMANTES 60 F 
ORDINATEUR 120 F 
UTILITAIRES + ACCESSOIRES 25.F 
DOM TOM + ETRANGER + 60 F 
PAIEMENT ETRANGER EXCLUSIVEMENT PAR MANDAT INTERNATIONAL 


GARANTIE 1 AN SUR LES LOGICIELS 











TOTAL 





275 4 SAISONS DE L'ECRIT CE/CM …. 235 
315 4 SAISONS DE L'ECRIT 6/3e .. 
145 SECRET ENGLAND 6/5e . 
109 SECRET ENGLAND 4/3e . 
129 DEUTSCHES GEHEIMNIS 6/5e 
ee DEUTSCHES GEHEIMNIS 4/3e 


169 ORTHOGUS 1. CM/6e . 

ORTHOGUS 2. 6/3 . 
9 9 MATHEX CE/CM 
105/145 MATHEX 6/5 . 
105/155 LICE MATHEX 4/3 . 
MATHEX 6/3 . 
PACK REVISION CE/CM 
PACK REVISION 6/5e 
PACK REVISION 4/3e 


BOITIERS DE RANGEMENT 


BOITIER DS4OLA : 30x3” 89 
BOITIER JSY 48 


ADAPT.NOUVEAU BUS CPC. 
DOUBLEUR JOYSTICK 
DOUBLEUR DE BU: 


- MATCHDAY 2 +BASKET MASTER CABLE EXTENSION PORT 


CABLE MAGNETO CASSETTE 


: CABLE MINITEL CPC 
HYPERSPORTS +TRACKN FIELD CABLE PERITEL CPC 


E CABLE PERITEL PLUS . 
ROAD RUNNER + METROCROSS CABLE GX4000/CPC 6 


RALLONGE (AI.Widéo 464 
ne ee me — — NS GENS GUNNN CUS GUN GUN CUS CRU CU CUS CU CURE ŒE GS 











QUE 


199 PAPERBOY 



















Rick Dangerous + Savage + Commando REVELATION 97/145 QUICKJOY TURBO 2. 135 SCIENCES PRIMAIRE 199 PENGUIN W. 85 CMLZEN 1200 50 
Navy Moves +1. Warriors +F. Bruno Boxe RICK DANGER! 05/155 QUICKJOY 3 SUPERCHARGER 99 GENERATION 5 PIPE DREAM 89 ZEN SMFT 240 .-5 
LES DIEUX DU CIEL 1968/2589 ROBOCOP II . 97/145 QUICKJOY 5 SUPERBOARD . 192 DESTINAT. MATHS CE 1/2 … 235 PLAY ACTION 29 EP 2000/2160 se 
Chuck Yeager + Ace 142 +ATF ROLLER BALL 195 QUICKJOY IR INFRAROUGE . 390 DESTINAT. MATHS CM1/2... 235 POWER MISSION 29 à 0 
Stricke Force Harrier + Tomahawk SAGA 195 QUICKJOY VI JETFIGHTER 145 DESTINATION MATHS 6/5e . «235 POWER RACER 





.… 59 
… 59 
… 59 
59 
59 
… 59 
… 59 
.… 59 
59 
59 


235 
249 
249 
249 ROLAN'S CURSE . 
249 ROBOCOP 
SHANGHAI 
245 SIDE POCKET 
245 SKATE OR DIE . 
245 SNOOPY … 
545 SOCCERBAY 


À SUPER PROMO 


A IMPRIMANTE DMP 3160 + PROTEXT.……. 


ADVANCED OCP ART STUDIO … 

LA SOLUTION rexTomaT + DATAMAT + CALCOMAT 
LECTEUR CASSETTE + CABLE. 
HIRerelKele) A'ASKoN ARTE 

PORTRAIT ASTRAL … 










ELUD VTA 















tous les rubans NB par 3 

















48x3" 99 








| DISQUETTES 3" 











CABLE IMPRIMANTE 
RALLONGE ECRAN 149 FE Æ Te F . . F F 75* 
RALLONGE ECRAN/CLAVIER PLUS. 149 

CABLE EXTENSION JOYSTICK...... 3" 1/2 DFDD 69F 130F 

CABLE FD1/DD11.…. 5° 1/4 DFDD 56F 105F à l'unité par 20 





55 *“ Disquettes LR 100% garantie à vie. 
119 Livrées avec enveloppes + étiquettes 


119 | BOITIER PLASTIQUE 3" ou 3.50”... 32 F Les dix 


109 




















JESSICO - B.P 693 - 06012 NICE CEDEX 

















© Je joins un chèque ou mandat-lettre { 
[ Je paie à réception au facteur + 25 F os 
E Je paie par carte bleue et je complète les 2 lignes ci-dessous oo 
CRDIQUE ==" L Li À L L i Li L 1 1 i Li L L L L L } im 
date d'expiration 5 
NOM PRENOM > 
N° ET RUE 
VILLE CODE POSTAL 





a 
SIGNATURE OBLIGATOIRE 


BOUTIQUE A NICE HOLLYWOOD STAR 8 BD. JOSEPH GARNIER 
precisez votre ordinateur pisc [] Kk7 [] 














NNNNNNIINNNININNUOUOUOUOUIOOONUOUIOc_c_.c<c<«<«c<«cu«ucucxxcxvoÈÉÈÈÈyuÈuyuuuuuuueeeeuueuuIoITITVTVNNW,,’,’***’r 


Fi,£ 


ee = 


@:7 Je: 4 1) : me 


ee = 


F1,5A,A7,F2,F1 


1,5A,A7,F2,F1 


,DA,E7,F2,FI 











.“ En 

S8488 .$ 
LES ERr,, <26 
DUSSSCECRSE #8 2 
Sésésceuasaaiss 
scddesedassuss 
LLCOÉRÉRBSSESAE 
SELLRERÉSSS2SE 
G © & 54 1 + SE 
Ch “asRuis 

AGU à 














RL Te 
ssl, 
538: s86858#ax 
Des: S6SSU8#25 
G781 2556883848 
Gus 2860884884 
GTSL. 86884884 
us:-+56s8082#% 
cie ‘SH8#8355 
“ss ‘+488 
: "+38 











RMMSTRAD o2 crue bee mama onrirenr F 


Jean-Marc VINCENT 


Valable pour CPC 
464-6128 FE 


Voici un petit programme qui 
va faciliter la vie de beaucoup 
de lecteurs. 

En effet, nombre de 
programmes publiés dans nos 
pages sont très intéressants 
mais leur utilisation nécessite 
des heures de travail 
ininterrompus devant votre 
CPC pour saisir les dizaines de 
pages de DATAs. 


C e programme vous permet main- 
tenant de charger les lignes de 
DATAs dans un fichier ASCII et de s’ar- 
rêter à tout moment. Ainsi le fichier de 
DAT As original pourra être reconstitué 
en utilisant les commandes LOAD pour 
le premier fichier, MERGE pour les sui- 
vants et enfin SAVE pour le sauvegar- 
der. 


FONCTIONNEMENT 
DU PROGRAMME : 


— Le programme demande sur quel 
Support (cassette ou disquette) doit se trou- 
ver le fichier. 

— S'il s’agit de la cassette, le pro- 
gramme demande s’il est besoin d’ini- 
tialiser les commandes cassette (TAPE : 
dans le cas d’un 464 avec DDI-1 ou 6128 
avec cassette). 

— S'il s’agit de la disquette, le pro- 
gramme affiche la liste de tous les fichiers 
de type ASCII (*.asc). 

— Le programme demande ensuite le 
nom du fichier en sortie. 

— Ensuite on demande le numéro de 
ligne de départ et l’incrément pour les 
lignes suivantes. 


— Puis le nombre de DATAs par li- 
gne. 

— Ensuite si le signe “&” est utilisé 
ou non. 


Se 


gt 
va 


d 

4 a 
GES 
dar 
see 
Eee 
SEA 
ns & 
Le] om 
ci s 
Lis 

æ 

F- 

a 


NCA 


MPCe. CU. Ce. ce. ce. Ce. Ce. Ca. CO. Ce. 










n 

.n" 
£ 
© 


1C.2D8.d6.c8.68.F8.CS. A4.3C. 70. 














48.CC.C@.6C.9C.CB.B4.D8.08.E8 







AA 3 
bus 





2.03,03.C2.F0.F0.F0.FA.F0.F0.Fr 
.F0.F0.F@.A0.00.F0.D8.C9.F0.FO.t 
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— Le programme demande alors la lon- 
gucur de la chaîne somme. Si RETURN 
pas de somme en fin de ligne sinon le 
programme propose le choix de la for- 
mule de calcul pour cette somme. (Il est 
d’ailleurs possible d’en ajouter facilement 
de nouvelles. c.f lignes 2350 à 2470). 

— Et si cetie somme doit être réinitia- 
lisée à chaque ligne. 

— On peut alors entrer les DATAs. Il 
faut taper RETURN après chaque DATA. 
La touche DEL peut être utilisée en cas 
d'erreur. 

— A la fin de la ligne, si besoin est, 
on entre la somme de contrôle (le pro- 
gramme l’ayant calculé lui-même tout au 
long de la ligne). Ici aussi on peut utili- 
ser la touche DEL. 

— Si il y a erreur sur la somme le pro- 
gramme propose de recommencer en ef- 
façant la ligne ou de corriger en passant 
sur Chaque DATA ainsi que sur la somme. 

— Si la somme cest correcte le pro- 
gramme propose de continuer ou de ter- 
miner. 


1000 ” 


1010 ‘HAE 


1920 ‘ # 


1038 ‘ # Chargensent de DATAs # 


1040 ‘ 


1068  # : 


1088 ‘ + 


CPC 464/664/6128 # 


1000 ‘HIHI 


1100 ‘ 


1118 ‘ (c) J-M, VINCENT Fevrier 1990 


1120 ‘ 


1139 ‘ Toutes les lignes cosmentees peuvent etre efface 


es : tous les points 


1140 ‘ d'entree pour 60T0 ou 6OSUB ne sont pas des lign 


es conaentees. 
1150 
1169 ‘ 


i 
1189 ‘ : 


" Alphabetiques 


1258 ‘ inpvalf 
1268 ‘ valinp$ 

a partir de inpval$ 
1270 ‘ supports 
isquette 

" file 


" cak 
leninp# 
1350 ‘ nlt 
inc4 


" ndatl4 
" Isum4 


1390 ‘ 
e chaque ligne 


posxl4 / posyli 


1400 ‘ posxd / posydi : 


e chaque DATA par ligne 


1410 ‘ ix 
1420 ‘ 


de + 


Liste des variables ; 


ee nee mi 


caratere lu par INKEY$ 
chaine de caracteres composee 


: nos du support : cassette ou d 


non du fichier en sortie 


" Nuseriques entieres 


fenetre de sortie ecran 
longueur d'une chaine a lire 
nusero de ligne de depart 
increment des nuseros de ligne 


nonbre de DATAs par ligne 
longueur de la chaine sus à li 


position du curseur en debut d 
position du curseur au debut d 


utilise par les boucles FOR 


1430 ‘ Numeriques reelles 


1449 ‘ ==sssssss=sasnusse 


1450 ‘ 
1460 
e 

1470 


valdat () 


savsum 


D 
XXE 
DIF 
Y\G 
>XH 
0) 
DK 
»A 
NB 
NC 
DIE 
XXF 
)XG 
>XH 


NC 


ND 
NE 
XG 
JXH 
\J 
YAK 
MA 
NB 
NC 


ND 
NE 


NF 


XXH 


XX] 
YAK 
WA 
NB 
NC 


: tableau de DATAS pour une lign >YD 


sauvegarde de la some cunul ee 


NE 





courante si erreur 


1489 ‘ sua : somme calculee (et cumulee) po >YF 
ur la ligne courante 

1490 ‘ valsun : somme lue pour la ligne couran >YG 
te 

1500 ‘ ERR : nusero d'erreur )XJ 
15108 ‘ ERL : ligne en erreur JXK 
152 ‘ A 
1538 ‘ Flags NB 
1549 ‘ ==== NC 
15% ‘ ND 
1568 ‘ amp4 : 1 si ‘&' utilise sinon 0 NE 
1570 ‘ csunk : { si sum a zero en debut de ch )YF 
aque ligne sinon 8 

1589 ‘ correct4 : 1 si correction de la ligne DA }YG 
TA courante sinon @ 

1590 ‘ inpsumk : 1 si entree de la soame de con >YH 
trole sinon 0 

1608 ‘ XXK 
1618 * Fonction »YA 
1628 ‘ ======== NB 
1630 ” NC 
1648 ‘ FN sum : definit la formule de calcul p }YD 
our sum 

16% NE 
1668 ‘ Debut du programme NF 
1670 ‘ -——-—————- 6 
1680 ‘ NH 





40 © JE 


ARCADES 


Des centaines de logiciels pour CPC 
à télécharger avec le kit ARCADES. 


À Voir bon de commande page 38 








. 1698 KEY DEF 66,0,0,0,0:POKE &BDEE,&C9 ‘ Annule BREAK & >DU 
CTRL+SHIFT+ESC 


1700 MODE 2:0N BREAK GOSUB 3180:0N ERROR GOTO 3230 )TA 
1710 WB 
1720 ‘ Initialisation des variables pour le chargement >YC 
des DATAS 

179 mm memene— VI) 
1740 ME 
1750 WINDOW #1,1,80,1,24:CLS #1:WINDOW #2,1,80,25,25:CL BL 
5 #2 

1768 PRINT #1,CHR$ (24) ;SPACE$ (14); "Utilitaire de charge )CT 
ment de datas dans un programme. "; SPACES (14) ;CHR$ (24); 

1770 PRINT #2, "Cassette ou Disquette (C/D) ? “;CHR$(24) DLF 
3" "y CHRS (24) ;CHR$ (8) ; 

1780 inpval$="":WHILE inpval$="":inpval$=UPPERS(INKEY$) DUE 
*MEND:CLS #2 

1798 IF inpval$="C" THEN support$="cassette":G60TO 1828 )CC 
1800 IF inpval$()"D" THEN PRINT CHR$(7);:G0T0 1770 >TU 
1810 support$="disquette" )1Y 
1820 CLS #2: PRINT #2, "Appuyer sur n'importe quelle touc >WM 
he lorsque vous aurez inserer une ";support$; 

1830 inpval$="":WHILE inpval$="":inpval$=UPPER$(INKEY$) >UA 


HEND:CLS #2 

1840 IF support$="disquette" THEN :DIR,"#,asc":60T0 189 >GM 
() 

1850 CLS #2:PRINT #2,"Avez-vous besoin d'initialiser le >HK 
s commandes cassette (:TAPE) (O/N) ? ";:GOSUB 2850 
1868 IF inpval$="0" THEN :TAPE 

1878 CLS #2:PRINT #2,"Press REC and PLAY then any key: 
"SCHR$ (24)3;" "3; CHR$(24) ;CHR$ (8); 

1880 inpval$="":WHILE inpval$=""sinpval$=UPPERS(INKEYS) UF 
HEND:CLS #2 

1890 INPUT #2,"Quel fichier voulez-vous creer (le type MC 
asc’ est inplicite) "sfile$ 

1900 IF file$="" OR LEN(file$)>8 THEN PRINT CHR$(7);:CL DPN 
5 #2:60T0 1890 

1918 CLS #2:PRINT #2,"A quel nunero de ligne voulez-vou ED 
s commencer ? "i:ca%=2:leninpx=5:60SUB 2940 

1920 n1#4=VAL (val inp$) GR 
1930 CLS #2:PRINT #2,"Quel increment voulez-vous utilis NB 
er ? "yscak=2:leninp4=5:GOSUB 2949 

1940 inc4=VAL (valinp#) RD 
1950 CLS #2: INPUT #2,"Nombre de datas par ligne "sndatl 3KF 
4 
1960 IF ndatl4=@ THEN PRINT CHR$(7);:GOT0 1950 JM 
1970 CLS #2:PRINT #2," Utilisez-vous le signe ‘&' pour 1 >DK 
es datas (O/N) ? ";CHR$(24);" "3 CHR$ (24) ; CHRS (8) ; : GOSUB 
2850 

1980 IF inpval$="0" THEN amp4=1 ELSE amp/=0 XM 
1990 CLS #2: INPUT #2,"Longueur de la chaine ‘somme’ en RE 
fin de ligne ";lsumx 

2000 IF lsum2(>0 THEN GOSUB 2390:CLS #2:PRINT #2,"Doit- >BW 
on renettre a zero la chaine ‘somme’ au debut de chaque 
ligne (O/N) ? ";CHR$(24);" "5 CHR$ (24) ; CHR$ (8) ; : GOSUB 2 
850: IF inpval$="O" THEN csun4=1 ELSE csumi=@ 


WR 
)BX 


2010 ” XF 
2020 ‘ Ouverture du fichier choisi precedemaent Y\G 
2 DH 





2040 »\J 
2050 CLS #1:CLS #2 LU 
2068 DIM valdat (ndat14) :sum=Q 3YR 
2870 OPENOUT "!"+file$+".asc" N] 
2080 NC 
2090 ‘ Entree des DATAs, de la somme et verification  )YD 
20 ‘ -—---- en ennne XKF 
2110 ‘ G 
2120 correct#=@:G0SUB 2520 JU 
2130 ‘ XX] 
2149 ‘ Ecriture dans le fichier choisi precedemaent JXK 
2 ‘ ---- nn A 
2160 »B 


2170 PRINT #9,RIGHT# (STR$(n14) ,LEN(STR$(n14))-1);" DATA DEU 


3 
2180 FOR i4=0 TO ndat1%-1 RG 
2190 IF anpl=1 THEN PRINT 49,"&"; ME 
2200 PRINT #9,MID$("Q8",1,2-LEN(HEXS (val dat (i4)1))3HEXS DRF 
(valdat (i%) ); 
2210 IF iCmdatli-1 THEN PRINT #9,",": 
Q THEN PRINT #9,","; ELSE PRINT 49 


ELSE IF lsuaxt} NZ 


2220 NEXT it A 
2230 1F 1sun*=Q THEN G60TO 2300 x 
2240 IF anp4=i THEN PRINT #9,"&": )IA 


2250 PRINT #9,MID$ (STRING$ (1sum4,"@") ,1,LEN(STRING$(1su ML 
a4,"@") )-LENCHEXS (val sua) }) ;HEX$ (val sum) 


2260 NC 
2270 ‘ Test pour continuer où sortir D 
2280 ‘ -------- NE 
ZN WF 


2300 PRINT #2,CHR$(24);" Appuyer sur <F> pour sortir ou >GH 
une autre touche pour continuer. ";CHR$ (24); 

2310 inpval$="":WHILE inpval$="":inpval#=UPPERS(INKEY#) KW 
:HEND 

2320 CLS #2:IF inpval$="F" THEN CLOSEOUT:WINDOW 1,80,1, > 
25:CLS:KEY DEF 66,0,&FC,&FC,&FC:POKE RBDEE ,&C3:LOCATE 1 
,1:PRINT “Vous pouvez charger votre fichier en tapant : 
"tPRINT:PRINT "LOAD ";CHRS (34) ;UPPER$ (fi le$) ;". ASC": CHR 
$(34) :PRINT:END 


2330 nl4=nl4tincx XX 
2340 GOTO 212 MB 
2350 ‘ NC 
2360 ‘ Sous-programse du choix de la formule de calcul )YD 
de la somne 

DD ----- NE 
2580 YF 


23590 CLS #2:PRINT #2, "Utilisez-vous cette formule de ca NE 
lcul (O/N) : TOT=TOT+PEEK(AD) ? ";:60SUB 2850: IF inpval 
$="0" THEN DEF FN sum=sumtvaldat (i%) :RETURN 

2400 CLS #2:PRINT #2,"Utilisez-vous cette foraule de ca DW] 
lcul (O/N) : S=G+K+65536#(5+K)32767) ? "::60SUB 2850: IF 
inpval$="O" THEN DEF FN sun=suntval dat (14) +65536# (sum+ 
valdat (14) 32767) : RETURN 

2410 CLS #2:PRINT #2," Utilisez-vous cette foraule de ca >QY 
lcul (O/N) : som=somtatj ? ";:60SUB 2850:1F inpval$="0" 
THEN DEF FN sun=sumtval dat (14)#(i%+1) :RETURN 

242 ‘ 

2438 ‘ Formule de calcul suivante 


MA 
NB 


20 


2440 ‘ Ce NC 
2459 ‘ Derniere formule de calcul D 
2460 ‘ NE 
2470 PRINT CHR$(7);:G0T0 2390 JC 
2480 ” »6G 


2490 ‘ Sous-programe d'entree et de verification des D >VH 
ATAS 


250") """"""" "0 UK 


2510 ‘ MA 

2520 inpsum4=Q: IF correct4=Q THEN savsun=sun ELSE sum=s KM 

avsun 

2530 posx]l 4=P0S (#1) :posyl 4=VPOS (#1) : IF csum4=1 THEN sum DE 

=Q 

2540 PRINT #1,RIGHT$ (STR$(n1%) ,LEN(STR$(n1%))-1)5" DATA DEL 
9 

2550 FOR i4=0 TO ndatl14-1 RH 

2560 IF amp=i THEN PRINT #1,"&"; NF 

2570 posxd=P0S (#1) :posyd4=VPOS(#1):ca%=1:leninp#=2: IF OK 

correct#4=0 THEN GOSUB 2949 ELSE valinp$=HEX$(valdat (14) 

Jeninp4):PRINT #ca4,valinp$;:GOSUB 295 

2580 valdat(14)=VAL("k"+valinp$) Al 

2590 IF LEN(valinp$)<=2 THEN LOCATE #1,posxd’,posyd4:PR >UP 

INT #1,HEX$(valdat (14),2); ELSE PRINT CHR$(7) ; :LOCATE # 

1,posxd4,posyd4: PRINT #1,SPACES$ (LEN(HEX$ (val dat (1%) ,2)) 

))3:LOCATE #1,posxd4,posyd4:G60T0 2570 

2600 IF i4Cndat14-1 THEN PRINT #1,","; ELSE IF lsum4C> NB 

O THEN PRINT #1,","; ELSE PRINT #i 


2610 IF 1sum4)8 THEN sum=FN sun AY 
2628 NEÏT i4 AE 
2658 ” ND 
2640 ‘ Entree de la sonne (si besoin) NE 
260 ‘ NF 
2660 NG 
2670 inpsumk=1:1F 1sun4=0 THEN RETURN YE 
2680 IF amp=i THEN PRINT #1,"&"; )1A 


2690 posxd4=POS (#1) : posyd4=VPOS (#1) :ca%=1: leninpzisun# RL 
‘IF correct4=@ THEN GOSUB 2940 ELSE valinp#=HEX$ (valsun 
Jeninp4):PRINT #ca4,valinp$;:GOSUB 2950 

2708 valsum=VAL ("&k"+valinp$) JU 
2710 IF LEN(valinp$)<=lsun% THEN LOCATE #1,posxd4,posyd >DD 
4iPRINT #1,HEX$(valsum,lsua%) ELSE PRINT CHR$ (7) ; :LOCAT 

E #i,posxd4,posyd4:PRINT #1,SPACES$ (LEN(HEXS$ (val sun, l sum 
4)))3:LOCATE #1,posxd4,posyd4:G0TO 2690 


2720 ‘ ND 
2730 ‘ Verification de la somme (si besoin) NE 
279  ----- > WF 
2750 ‘ 6 
2768 IF valsun=sun THEN RETURN JAX 


2770 PRINT #2,CHR$(24);" Erreur dans les datas. Appuyer > 
sur €R> pour recommencer ou <C> pour corriger. ";CHR$( 
24); :correct=0 

2780 inpval$="":WHILE inpval$="":inpval$=UPPERS(INKEY$) >KH 
:HEND 

2790 IF inpval$="R" THEN CLS #2:LOCATE #1,posxl4,posyl4 >6X 
:PRINT #1,SPACES$ (80) ;: LOCATE #1 ,posx14,posyl 4: sun=savsu 
m:GOTO 2520 

2800 IF inpval$="C" THEN correct{=1:LOCATE #1,posxl4,po DK 
5y14:607T0 2520 ELSE PRINT CHR$(7);:G0T0 2770 





2810 ” AD 


2820 ‘ Sous-programe d'entree O (oui) / N (non) NE 
Gr NF 
2840 ” NG 
2850 PRINT #2,CHR$(24);" "3 CHR$ (24) ; CHR$ (8) ; AU 


2860 inpval$=UPPER$(INKEY$) : IF inpval$="" THEN 2860 MK 
2870 IF inpval$(>"O" AND inpval$()"N" THEN PRINT CHR$(7 DNZ 
);:G0T0 2860 

2880 PRINT #2,inpval$;CHR$(24)5;" "3CHR$ (24); CHR$ (8) IR 
2890 RETURN >6C 
2900 ‘ ND 
2918 ‘ Sous-programne d'entree de caracteres hexadecisa )YE 
ux et de controle 


2929 ‘ ------ nn NF 
2950 ‘ »G 
2940 valinp$="" ?CF 
2950 inpval$="" >C6 
2968 WHILE inpval$<)CHR$ (13) YÂH 


2970 IF correct4=@ THEN PRINT #ca%,CHR$ (24) ;" ";CHR$(24 BB 
E 

2988 IF correct4=1 AND inpsum4=@ THEN PRINT #cak,CHR$(2 >UY 
4)3",";CHR$ (24); 

2990 IF correct#=i AND inpsumX=1 THEN PRINT #ca4,CHR$(2 >UM 
4)5" ";CHR$ (24); 

3000 inpval$=UPPERS(IKEY$): IF inpval$="" THEN 3000 6 
3010 IF ASC(inpval$)=0 THEN 3000 " Touche BREAK LA 
3020 IF inpval$=CHR$(13) THEN 3188  ‘ Touche RETURN  >4 
3030 IF inpval$(>CHR$(127) THEN 3970 ‘ Touche DEL CC 
3040 IF LEN(valinp$)=@ THEN PRINT CHR$(7) ;:inpval$="":6 »KH 
OTO 3000 

3050 valinp$=MID$ (val inp$, 1 ,LEN (val inp$)-1) N] 
3060 PRINT #ca%,CHR$ (8) ;CHR$(8);" "3CHRS(B) ;CHRS(B);:i )ZA 
npval$="":G0TO 297 

3070 IF LEN(valinp#)=leninpx THEN PRINT CHR$(7);:inpval UF 
="":G0T0 3000 

3080 IF (inpval$>="@" AND inpval$<="9") OR (inpval$)="A >AÆE 
"AND inpval$(="F") THEN PRINT #ca%,CHR$(8);" ";CHR$ (8) 
sinpval$; ELSE PRINT CHR$(7);:G0T0 3000 

3090 valinp$=valinp$+inpval$ NT 
3100 IF LEN(valinp#)=@ THEN PRINT CHR$(7) ;:inpval$="":G }KE 
OTO 3000 


3110 WEND HK 
| 3120 PRINT #ca%,CHR$(8);" ";CHR$(B); HE 
3130 RETURN >FA 
3140 YA 
3150 ‘ Sous-programae de traitenent du BREAK NB 
HD NC 
3170 ‘ D 


3180 CLOSEOUT:HINDOW 1,80,1,2S:LOCATE 1,25:PRINT SPACES DLF 
(80) ;:LOCATE 1,24:G0T0 3240 


3190 NF 
3200 ‘ Sous-progranne de traitesent des erreurs >XH 
3219 ----- "7 YJ 
3228 ‘ >XK 
3230 CLOSEOUT:WINDOW 1,80,1,25:CLS >DW 
3248 PRINT "Erreur #";ERR;"a La ligne #";ERL UB 
3250 RESUME 3260 >GK 
3268 END NK 


GUIDE DU PROGRAMMEUR 


Votre programme est maintenant fin prêt, il ne vous reste 
plus qu’à envoyer votre œuvre à CPC Infos. 
Mais n'oubliez pas : 
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NOM : Prénom: 2 Nom : | 
Adresse complète : Catégorie Q Jeu Q Utilitaire Q Educatif 
Taille : 
TE, : 2 Âge: Périphériques utilisées : 
Support Q Cassette Q Disquette | 
âttestation sur l'honneur Comptabilité (testée) avec : 
Je soussigné ] 
ue .. . + à 464 Q 664 Q 6128 Q PCW 8256 
déclare être l'auteur du programme ci-joint et ne l'avoir ? 
jamais proposé à une autre revue. Signature 


Êe à — — 7 ‘A 





* Ne pouvant être tenu pour responsable de l'acheminement des paquets postaux, nous conseillons à notre aima- | 
ble clientèle de choisir l'envoi en recommandé. 


Remplissez soigneusement ce coupon et joignez-le à votre programme, sur cassette ou disquette. 





Envoyez le tout à CPC Infos - La Haie de Pan - 35170 BRUZ 
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Un jeu de réflexion qui vous 
demandera de rassembler 3 œufs 
dispersés dans un labyrinthe et le 

tout sans faire d’omelette. 


38 REM : PRESENTATION 
àÿ REM : facultative 
58 REM : : 
69 REM sessossssesesseseeesences 


)2B 
)EA 
)TC 
>RA 
)ED 
)ZG 


Ce programme comprend 3 fichiers : 

- 3D : fichier basic de présentation (facultatif) 

— 3OEUFS : fichier basic, corps principal du jeu. 

- DATAOEUF : fichier basic de data qui, une fois lancé, 
donne le fichier OEUFBIN 


79 DEFINT a-z:GOSUB S369:EVERY 19,2 GOSUB 389 )LF 
89 SYMBOL 255,254, 254,254,254,254,254,254,8 )JC 
98 MODE 1:INK 9,9:INK 1,18:1INK 2,6:INK 3,2:BORDER ÿ )TC 
198 FOR h=1 TO {1:FOR G=1 TO 4W:ENC=ENC+1:IF ENC=4 THEN )DA 
ENC=1 

118 LOCATE G,H:PEN ENC:PRINT CHR$(255):NEXT G,H RG 
129 RESTORE 139:FOR h=1 TO G:READ a:PLOT a,299,9:DRAW a )KX 
, GB: NEXT 

138 DATA 176,298,352, 432, 489, 569 XD 
149 RESTORE 169:PEN 9:FOR h=1 TO 48:READ a,b,c MX 
158 FOR g=a TO b:LOCATE g,c:PRINT CHR$(143):NEXT g,h  DWF 


23 


168 DATA 1,9,1,14,27,1,39,49,1,1,9,2,16,27,2,31,49,2,1, KE | 119 REX : | KC 





8,3,14,27,3,30,49,3,1,7,4,16,17,4,38,38,4,1,6,5,16,17,5 129 REM : TEL 96 38 94 24 : pu 
,23,25,5,38, 30,5, 33,33,5,38,39,5 139 REX : Ù XXE 
179 DATA 1,5,6,9,9,6,16,17,6,29,29,6, 38, 38,6,33,33,6,38 )CB 149 REM tisssessenenennenees )XV 
,48,7,1,4,7,8,9,7,16,17,7,29,29,7,25,25,7,30,39,7,33,33 159 MEMORY &95DF:LOAD "OEUFBIN", &95ES )FV 
,71,9,8,16,17,8,25,25,8,33,33,8,49,49,8 168 REM ssssseseereneeeeneess )XX 
189 DATA 1,2,9,6,9,9,16,17,9,38,39,9,1,1,19,5,9,19,12,2 NT 179 REX : ! XKJ 
#,19,23,49,19,4,9,11,12,17,11,23,49,11 189 REM : VARIABLES DE BASE : )WB 
198 PEN 3:LOCATE 33,11:PRINT "SOFTWARE" HR 198 REM : ! )LA 
299 PEN 2:LOCATE 17,15:PRINT "PRESENTE" )HH 208 REM srssssseeeneeneneess )XR 
219 OUT &BC98,6:OUT &BD9D, 24 DV] 219 DEFINT A-Z:MODE S:BORDER #:RESTORE 239 >KD 
229 a$="TROIS OEUFS":y=199:ENC-3:t=9:GOSUB 249 >RH 228 FOR H=9 TO 15:READ A:INK H,A:NEXT )DU 
239 y=98:ENC=1:t=1:GOSUB 249:GO0T0 33ÿ )EH 239 DATA 9,2,3,11,9,24,15,6,9,16,7,13,26,24,9,18 MY 
249 A=LEN(A$):P=Ax8:IF t:9 THEN 269 )BP 248 DIM SP(4@):FOR H=9 TO 29:SP(H+1)=895E9+ (H4G4):NEXT >XB 
259 x=(646-Ax32)/2:G0T0 278 UV 258 DEF FN PO(X,Y):=&BFFE+(Y-1)x169+(X-1)#4 NY 
269 x=(639-Ax32)/2 )LR 269 DEF FN LP(X,Y)=&CD89+(Y-1)x89+(X-1)#2 )GV 
279 PEN 2:LOCATE 1,25:PRINT A$::PEN ! )DQ 279 DIM JE(21,13):DIM A1$(11) )VY 
289 tx=x:y2=14 )BF 288 ENT 1,199,2,2:ENV 1,199,3,1 )WY 
299 FOR i=1 TO 8:x2=9:FOR j=1 TO P )ZH 298 ENV 3,5,-2,19:ENV 4,5,3,1,1,9,18,6,-3,4 )HB 
399 IF TEST(x2,y2):2 THEN PLOT x,y, ENC:PLOT x,y-2:PLOT )ZV 389 ENT 4,5,1,1,19,-1,1,19,1,1,19,-1,1,15,1,1 DIT 
x+2,y:PLOT x+2,y-2 319 ENT 14,49,-19,1:ENV 14,1,5,1,19,1,4,5,-3,1 )KQ 
319 u=x+4:x2=x2+2:NEXT j )TA 329 ENV 19,15,-1,1:ENV 15,1,5,5,19,1,4,5,-3,1:ENT 15,5, DLF 
328 y=y-4:y2=y2-2:x=tx:NEXT i : RETURN )GK -20,1,60,18,1 
338 LOCATE {,25:PRINT SPACES(A) )ZA 339 VIE=4:TA:1 DK 
349 OUT &BCH9,6:OUT &BD9S,25:PEN 2:LOCATE 27,25:PRINT " DUT J4D REM sesssesseneeeeensense )XX 
Is loading..." 358 REX : ! XKJ 
359 RUN "!3oeufs" >NP 369 REM : BRANCHEMENT TAB : ; VX 
369 DIM dn(139) :RESTORE 498 UV 379 REM : ! LA 
379 h=ht{:READ d:dm(h)=d:IF d=-1 THEN RETURN ELSE 379  DWZ 389 REM sissssseseneneeeenene )XB 
389 cd=cdt{:d=dntcd):1F d=-1 THEN cd=ÿ:GO0TO 389 )PT 399 FOR H=1 TO 29:CALL &ABOD,FN PO(H,1)+2, SP(2) )NB 
398 IF d=ÿ THEN v=f:d1:9 ELSE v=1:d1=d )ED 499 CALL &ABGD,FN PO(H,13)-78,SP(2):NEXT:FOR H=1 TO 12 WP 
489 SOUND 17,d,28,15*v:SOUND 19, d1,29,9:RETURN )PA 419 CALL &ASBD,FN PO(1,H)+2,SP(2):CALL &AGOD,FN P0(28,H DQW 
419 DATA 478,9,478,9,478,0,478,0,478,506,478,426,379,8, >YP )+2, SP(2) :NEXT 
379,9,319,338, 319, 239 429 a$="SCORE:9999€ g4 69998 :HIGHT":2L=1: DYT 
429 DATA 199,9,199,9,213, 198,179, 253,213,8,213, 89, 319,33 )XZ YL=1:CER=2:GOSUB 44ÿ 
8,319,253,213,9,213,9 439 GOSUB 4398:G0T0 478 >RH 
439 DATA 179,199,179, 127,196, 9, 186,9,113,196,95,127,119 DXV 449 A$=UPPERS$(A$):FOR T=1 TO LEN(A$):PS=(ASC(MIDS(A$,T, DHX 
,9,119,9,95, 196,95, 89 1)))-48 
449 DATA 89,8,88,9,71,89, 89,95, 196,8,196,8,196,113,186, >XN 459 IF PSC THEN PS=43 )QL 
95,89, 9, 89,9,89,89,95 469 CALL &9D29,FN LP(ZL, YL)+(T*2)-CER, &9D49+(PSx16):NEX MF 
459 DATA 196,119,8,119,9,119,127,119,196,95,9,95,9,89,9 DUA T:RETURN 
5,196,119,127,9,9,8 #78 PLOT -19,1,9:FOR h=18 TO 339 STEP @8:PLOT h,16:DRAW )CQ 
469 DATA 142,9,8,9,159,9,0,8,179,9,8,8,199,8,9,0,213,9, DBQ h, 366 
5,0,-1m 488 PLOT 649-H,16:DRAW 649-H, 366:NEXT:FOR h=334 TO 18 S DRQ 

TEP -8:PLOT h,16 

498 DRAW h,366:PLOT 649-H, 16:DRAW 648-H, 366:NEXT:IF fin TH 





={ THEN RETURN 
° 599 A$="LEVEL : "#STR$(TA):2L:15:YL:13:GOSUB 449:FOR T= )TQ 


1 TO SSP :NEXT 


19 REM Ososesessseneeseesses )WQ 518 A$=SPACES(15):ZL:15:YL=13:GOSUB 448 >HA 
29 REM : ; )DJ 529 ON TA GOTO 539,549,559,569,579,588,599,698,619,629, FF 
39 REM : TROIS OEUFS : )QU 630,649,659,669,679,689,699, 790,719, 728,739 

4ÿ REM : ; )EA 539 RESTORE 3399:GOSUB 799:G0T0 1138 )DD 
54 REM : PAR : XKF 549 RESTORE 3449 :GOSUB 79ÿ:GO0T0 1138 )DA 
69 REM : CLAUDE LE MOULLEC : VA 559 RESTORE 349ÿ:GOSUB 799:G0T0 1139 )DG 
78 REM : ! )ED 568 RESTORE 3549:GOSUB 799:GO0T0 1134 )DD 
89 REM : 83 RUE J CURIE : )RP 579 RESTORE 359ÿ:GOSUB 799:G0T0 1139 DK 
9g REM : : DEF 589 RESTORE 3649:GO0SUB 79$:G0T0 1138 )DG 
199 REM : 22429 PLOUARET : TH 599 RESTORE 3699:GO0SUB 799:G0T0 1139 )DN 
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698 RESTORE 3748:GO0SUB 799:G0T0 1138 
619 RESTORE 3799:G0SUB 798:G0T0 1139 
628 RESTORE 3849:GO0SUB 799:G0T0 1138 
638 RESTORE 3899:GOSUB 799:G0T0 1138 
649 RESTORE 3948:G0SUB 799:G0T0 1138 
659 RESTORE 3999:GOSUB 799:GO0T0 1139 
668 RESTORE 4948:GOSUB 799:GO0T0 1138 
679 RESTORE 4999:GOSUB 799:G0T0 1139 
689 RESTORE 4149:GOSUB 799:G0T0 1138 
699 RESTORE 4199:GOSUB 799:G0TO 1138 
799 RESTORE 424ÿ:GOSUB 799:G0T0 1138 
719 RESTORE 4299 :GOSUB 799:G0T0 1139 


729 RESTORE 4348:GOSUB 799:G0T0 1138 
739 ta=1:GO0TO 528 

T4D REM sogssssesegesseseese 

759 REM : 

769 REM : DESSIN TABLEAU 

779 REM : ! 

789 REM sessssseseeseessesce: 


798 ERASE JE:DIN JE(21,13) 

899 FOR h=1 TO 21:jeth,1)=1:je(th,13)=1:NEXT 

819 FOR h=1 TO 13:je(1,h)=1:je(21,h)=1:NEXT 

829 s=3:cx=2:GOSUB 838:5=29:cx=3:GOSUB 839:5=2:cx:1:G0S 
UB 834:G0T0 99ÿ 

839 FOR h=1 TO 11:READ ai 

849 al$(h)=BIN$(af, 18) :NEXT 

859 FOR h=1 TO 11:1F af$(h)="9099990009" THEN 999 

869 FOR g=1 TO 19 

878 bib=MID$(al$(h),g,1):b1=VAL(b1$) 

88ÿ IF b1=1 THEN CALL &ADGD,FN potg+i,H+ti),sp(s):je(g+t 
,ht{)=cx 

898 NEXT g 

999 SOUND 1, INT(RNDx698)+69,5,15:NEXT h 

918 FOR h=1 TO 11:READ af 

929 at$Ch)=BIN$(at,9):NEXT 

939 FOR h=1 TO 11:1F ai$(h)="909099900" THEN 989 

94ÿ FOR g={ TO 9 

958 b1$=MID$(ai$(h),g,1):b1=VAL(b1$) 

969 IF bi={ THEN CALL &AGOD,FN po(g+{1,H+1),sp(s):je(g+ 
11,h+t{)=cx 

978 NEXT g 

988 SOUND 1, INT (RND*698)+68,5,15:NEXT h:RETURN 

998 TT=89:FOR h=1 TO 3:READ FX,FY:CALL &AG#D,FN PO(FX,F 
Y),SP(4) 

1999 JECFX,FY)=4:NEXT:READ X,Y:CALL &ABQD,FN po(X, Y),SP 
(7) 

1918 N1=9:N1=9:READ MONS:IF MONS=9 THEN RETURN ELSE IF 
MONS=1 THEN 1949 

1929 READ NX, NY:CALL RAGBD,FN po(NX, NY), SP(18):JECNX, NY 
)=5:sn=1:N1=1 

1939 IF MONS:3 THEN 1959 

1949 READ MX,MY:CALL &ABBD,FN po(MX,MY),SP(23):JE(MX,MY 
1=5:M{=1 

1959 IF mi={ THEN TT=TT-2S:EVERY 19,1 GOSUB 2459 

1969 IF n1=1 THEN TT=TT-25:EVERY 35,2 GOSUB 2689 

1978 RETURN 

1989 REM :isssseresseseresees 

1999 REX : : 

1199 REM : ROUTINE PRINCIPALE: 


)DG 
)DD 
)DK 
)DG 
)DN 
)DA 
)DG 
)DD 
)DK 
)DX 
)DD 
)DA 
)LB 
>XB 
)LC 
DUZ 
)LE 
XF 
JUN 
>KH 
KJ 
DE 


RC 
)VQ 
MK 
)CE 
CD 
)HC 


)PD 
)GU 
)RB 
DUA 
)LY 
WG 
)CC 
KF 


)PC 
)QV 
)JA 


)EM 


DUE 


DUY 


)RY 
LH 


)PD 
)PV 
)FB 
)XG 
>RH 
)ZG 








DA Ÿ 1118 REH : 


1138 IF FIN=1 THEN 3199 

1149 IF INKEY(FE)=9 THEN 2399 

1158 IF INKEY(GA)=8 THEN 1389 

1169 IF INKEYCHA)=9 THEN 1388 

1179 IF INKEY(BA):9 THEN 1469 

1189 IF INKEY(DA)=ÿ THEN 1228 

1199 IF INKEYS=" " THEN fin:i 

1289 GOTO 1139 

1219 REM ::: A DROITE ::: 

1229 SS=2:A=JE(X+1,Y)+1:0N A GOTO 1238,1138,1719, 1729, 1 
139,2198,2199 

1239 DI:ADD=FN PO(X, Y):CALL &A97C, ADD+1, SP(8) 

1249 FOR T=1 TO TT:NEXT:CALL &Aÿ7C, ADD42, SP(7) 

1258 SOUND 1,399,5,1,1,1,15 

1269 FOR T=1 TO TT:NEXT:CALL &A97C, ADD+3, SP(9) 

1278 FOR T={ TO TT:NEXT:CALL &Aÿ7C, ADD+4, SP(7) 

1288 FOR T=1 TO TT:NEXT:X=X+1:E1:GOTO 1139 

1299 REM ::: A GAUCHE ::: 

1399 SS=4:A=JE(X-1,Y)+1:0N A GOTO 1319,1138,1719,1729,1 
739,2199,2199 

1318 DI:ADD=FN PO(X,Y):CALL &A997,ADD-1,SP(11) 

1328 FOR T=1 TO TT:NEXT:CALL &A997, ADD-2, SP(18) 

1338 SOUND 1,398,5,1,1,1,15 

1349 FOR T=1 TO TT:NEXT:CALL &A997, ADD-3, SP(12) 

1359 FOR T=1 TO TT:NEXT:CALL &A997, ADD-4, SP(19) 

1369 FOR T=1 TO TT:NEXT:X=X-1:E1:G0TO 1139 

1379 REM ::: VERS LE HAUT ::: 

1389 SS=1:A=JE(X,Y-1)+1:0N A GOTO 1399,1139,1719,1729,1 
739,2198,2198 

1398 DI:ADD=FN PO(X,Y):CALL &A9SF, ADD:CALL &AGAA, SP(15) 
1498 FOR T=1 TO TT:NEXT:CALL &AGAA, SP(16) 

1419 SOUND 1,398,5,1,1,1,15 

1429 FOR T=1 TO TT:NEXT:CALL &ABAA, SP(15) 

1439 FOR T={ TO TT:NEXT:CALL &AGAA, SP(16) 

1449 FOR T=1 TO TT:NEXT:Y=Y-1:El:GOTO 1139 

1459 REM ::: VERS LE BAS ::: 

1469 SS=3:A=JE(X,Y+1)+1:0N A GOTO 1478,1138,1719,1729,1 
730,2108,2198 

{478 DI:ADD=FN PO(X,Y):CALL &A93F, ADD:CALL &AQCB, SP(13) 
1489 FOR T=1 TO TT:NEXT:CALL &ABC8, SP(14) 

1498 SOUND 1,398,5,1,1,1,15 

1599 FOR T={ TO TT:NEXT:CALL &AQC8, SP(13) 

1519 FOR T={ TO TT:NEXT:CALL &ASÿCB, SP(14) 

1529 FOR T=1 TO TT:NEXT:Y=Y+1:El:GOTO 1138 

1588 REM sesssssesesseseensess 

1548 REM : ! 

1559 REM : TEMPO MONSTRES 

1568 REM : 


1589 mu=REMAIN({):CALL &AGQD,FN po(mx,ny),sp(1):je(nx,n 
y)=$:n1:9 

1599 TT=TT+25:SOUND 4,58,58,15,3,3:AFTER 598,1 GOSUB 16 
99 :RETURN 

1698 nx=INT(RNDX19)+{:my=INTIRNDx19)+1:1F je(mx,my) (8 
THEN 1699 

1618 n1=1:TT=TT-25:sm=INT(RNDK4)+1: je(mx,my)=5:EVERY 19 
,1 GOSUB 2458:RETURN 


)RA 
)XB 
)QA 
)WJ 
DWF 
DUR 
)WK 
WG 
WU 
)LF 
RH 
MU 


NF 
)PQ 
>UU 
)PY 
>P4 
)LP 
RN 
MW 


>PH 
)QU 
DUT 
)Q7 
)Q7 
)LQ 
)VB 
)NB 


)ZE 
)JL 
DUR 
)JM 
)JP 
LR 
UD 
MH 


>ZU 
)JK 
DUA 
)JB 
)JD 
)LN 
)XG 
RH 
DL 
)RK 
)YC 
NN 


KR 
)LP 


DH 


1629 nu=RENAIN(2):CALL &AS@D,FN polnx,ny),sp(i):jetnx,n DNP | 2118 REM stisssssseseseeeisere >XB 





y}=8:n1=ÿ 2129 REM : ; )RC 
1639 TT=TT+25:SOUND 4,58,58,15,3,3:AFTER 612,2 GOSUB 16 KW | 2139 REM : ALIGNEMENT OEUFS : )XY 
4S:RETURN 2148 REM : É RE 
1649 nx=INT(RND419)+1:ny=INTIRNDX{#)+1:1F je(nx,ny)og DLC | 2158 REM sisssissisiisiiiiisse DXF 
THEN 1649 2168 IF JE(EX,EY)Co4 THEN 1139 »)XG 
1658 nt=1:TT:TT-25:5m= INTIRNDK4)+#1: je(nx,ny)=6:EVERY 35 DDK | 2170 IF JECEX+1,EY)C>4 THEN 2199 )YN 
,2 GOSUB 2688:RETURN | 2189 IF JECEX+2,EY)=4 OR JE(EX-1,EY)=4 THEN GAN=1:FIN=1 )XE 
1669 REM srreseseeseeeeneners oyc | :GOTO 1139 ELSE 1139 

1678 REM : , >TB | 2199 IF JE(EX-1,EY)<>4 THEN 2219 DYT 
1689 REM : POUSSE ELEMENTS : Du | 2289 IF JE(EX-2,EY)=4 OR JE(EX+1,EY)=4 THEN GAN=1:FIN=1 )XX 
1699 REM : ; TD | :GOTO 1139 ELSE 1139 

1799 REM srrrsseneeeeeseseecre xF | 2219 IF JECEX,EY+1)<>4 THEN 2239 DK 
1719 S=3:SD=2:0N SS GOTO 1759, 1849, 1939, 2029 >KH | 2229 IF JE(EX,EY+2)=4 OR JE(EX,EY-1)=4 THEN GAN=1:FIN={ »XZ 
1729 S=29:SD=3:0N SS GOTO 1758, 1849, 1939, 2928 )LH | :GOTO 1139 ELSE 1139 

1738 S=4:SD=4:0N SS GOTO 1759, 1849, 1939, 2929 KN | 2239 IF JE(EX,EY-1)€>4 THEN 1139 >YM 
1749 REM ::: POUSSE HAUT ::: >VH | 2249 IF JECEX,EY-2)=4 OR JE(EX,EY+1)=4 THEN GAN=1:FIN=1 )XB 
1759 EX=X:EY=Y-1:CALL &ABBD,FN po(x,y),sp(15} »pA | :GOTO 1139 ELSE 1139 

1768 IF JE(EX,EY-1)=8 THEN 1860 JXE | 2259 REM sssssesesesesseceesce >XG 
1778 IF JE(EX,EY-1)<5 THEN 2169 »xx | 2269 REM : : RH 
1788 IF JE(EX,EY-1)=5 THEN GOSUB 1588:G0T0 1894 NF | 2270 REM : EXPLOSION : RD 
1799 IF JE(EX,EY-1)=6 THEN GOSUB 1629:G0T0 1848 NC | 2289 REM : : )RK 
1898 ADD=FN PO(EX,EY):DI:CALL RABS3F,ADD:DI:FOR H=1 TO 4 DYC | 2299 REM ::sssisiisissssssett: )YC 
1819 CALL &AGAA, SP(S):FOR T=1 TO S:NEXT T,H KT | 2399 ON SS GOTO 2319,2329, 2339, 2349 AH 
1828 JECEX,EY)=9:JE(EX,EY-1)=SD:EY=EY-1:E1:GOTO 1769  DYE | 2319 IF JE(X,Y-1)C2 THEN 1138 ELSE FX=X:FY=Y-1:G0T0 23 D AU 
1839 REM ::: POUSSE DROITE ::: DYF | 54 

1849 EX=X+1:EY=Y:CALL &AGBD,FN polx,y),sp(?7) DNG | 2328 IF JE(X+1,Y)C2 THEN 1138 ELSE FX=X+1:FY=Y:G0TO 23 )AQ 
1859 IF JE(EX+1,EY)=9 THEN 1899 )XM | 58 

1869 IF JE(EX+1,EY)<5 THEN 2169 DXH | 2338 IF JE(X,Ÿ+1)€)2 THEN 1139 ELSE FX=X:FY=Y+1:G0T0 23 >AR 
1879 1F JE(EX+1,EY)=5 THEN GOSUB 1589: je(EX+!,EY)=9:GOT )FD | 5ÿ 

0 189ÿ 2349 IF JE(X-1,Y)C92 THEN 1138 ELSE FX=X-1:FY=Y:G0TO 23 D AX 
1889 IF JECEX+1,EY)=6 THEN GOSUB 1629: je(EX+1,EY)=4:G0T DFA | 5 

0 189ÿ 2354 SOUND 4,9,-1,15,3,,38 )TU 
1899 ADD-FN PO(EX,EY):DI:FOR H=1 TO 4 >DA | 2369 CALL &AGBD,FN PO(FX,FY), SP(5):FOR T=1 TO 2@9:NEXT KM 
1999 CALL &A@7C, ADD+H, SP(S):FOR T=1 TO S:NEXT T,H >RA | 2374 CALL B&ABBD,FN POCFX,FY),SP(G):FOR T=1 TO 28@:NEXT XP 
1919 JECEX,EY)=Q:JE(EX+1,EY)=SD:EX=EX+1:E1:G0TO 1859  DYY | 2389 CALL &AGOD,FN PO(FX,FY),SP(5):FOR T=i TO 1SB:NEXT >XN 
1929 REM ::: POUSSE BAS ::: DUM | 2399 CALL &ABBGD,FN PO(FX,FY),SP(L):JECFX,FY)=g:GOTO 113 )BU 
1938 EX=X:EY=Y+1:CALL &ABOD,FN polx,y},sp(13) NE | 

1949 IF JE(EX,EY+1)=8 THEN 1989 >XM 2499 REM ssrsssesseseesseneses >XD 
1959 IF JE(EX,EY+1)45 THEN 2169 >XH | 2419 REM : ; RE 
1969 1F JE(EX,EY+1)=5 THEN GOSUB 1589: je(EX,EY+1)=9:G07 >FD | 2429 REM :  MONSTRE NR 1 : )RG 
0 1989 2438 REM : : RG 
1978 IF JE(EX,EY+1)=6 THEN GOSUB 1629: je(EX,EY+1)=9:GOT DFA | 2449 REM :isssisiiciiiiisiitti >XH 
0 1988 2458 DI:ON sm GOTO 2469, 2599, 2549, 2589 )DA 
1988 ADD=FN PO(EX, EY):CALL &AB3F, ADD:DI:FOR H=1 TO 4  DVJ | 2469 IF mx+1=x AND my=y THEN fin=1:G0T0 2484 >LV 
1998 CALL &A@CB,SP(S):FOR T=1 TO S:NEXT T,H KV | 2479 IF je(mx+1,my)>9 THEN sn=INT(RND*4)+1:EI:RETURN  )YM 
2998 JECEX,EY)=8:JE(EX,EY+1)=SD:EY=EY+1:E1:GOT0 1949  DYQ | 2488 CALL &ABBD,FN po(mx,my), spi): je(mx, ay)=4 >QQ 
2819 REM ::: POUSSE GAUCHE ::: »XB 2499 mx=mxt!:CALL &ABBD,FN po(mx,ny),sp(19):je(mx,ny)}=5 RE 
2929 EX=X-1:EY=Y:CALL &AB9D,FN potx,y},sp(12) )N4 :EI :RETURN 

2838 IF JE(EX-1,EY)=@ THEN 2979 XV | 2599 IF mx=x AND nmy+{=y THEN fin=1:G0T0 2529 > LN 
2848 IF JE(EX-1,EY)<S THEN 2168 DXA | 2519 IF je(mx,my+t)>9 THEN sn=INT(RND*X4)+1:EI:RETURN  )YG 
2958 IF JECEX-1,EY)=5 THEN GOSUB 1588: je(EX-1,EY)=@:G0T FN | 2529 CALL &ABSD,FN potmx,my),sp(1):je(mx,ny)=4 DK 
0 2979 2538 my=my+1:CALL &AÏGD,FN po(mx,ny),sp(25):je(mx,my)=5 QG 
2969 IF JE(EX-1,EY)=6 THEN GOSUB 1629: je(EX-1,EY)=8:GOT DFK :ET RETURN 

0 2978 2549 IF mx-i=x AND my=y THEN fin=1:G0T0 2568 > LV 
2879 ADD=FN PO(EX,EY):DI:FOR H=1 TO 4 )DQ | 2559 IF je(nx-1,my)>9 THEN sn=INT(RND44)+1:EI:RETURN  DYN 
2989 CALL &A997,ADD-H, SP(S):FOR T=1 TO 5:NEXT T,H )RR | 2568 CALL &ABBD,FN po(mx, ny), spl1):je(nx, ny) = )QP 
2898 JECEX,EY)=8:JE(EX-1,EY)=SD:EX=EX-1:E[:G0TO 2839 DYT 2579 mx=mx-1:CALL &ASGD,FN polmx,my),sp(22):je(mx,ny)=5 )QH 
2198 FIN =1:G0TO 1138 DNC @ :EI:RETURN 


26 


2589 IF mx=x AND my-1=y THEN fin=1:GO0T0 2688 )LY 
2599 IF je(mx,my-1)>8 THEN sn=INT(RND#4)+1:F I : RETURN DYT 
2689 CALL &ABBD,FN po(nx, my), sp(1):je(mx,ay)=ÿ )Q 
2619 my=my-t:CALL &ADGD,FN po(mx,ny),sp(28): je(mx,ny)=5 )RC 
: ET RETURN 

2628 Di:sx=sn:sm=INT(RNDX4)+{:1F sm=sx THEN 2628 ELSE E DLA 
[':RETURN 


2639 REM ssssssossessensenensest )ZL 
2649 REM : ! )TB 
265$ REM : MONSTRE KR 2 d )RB 
2669 REM : ! )TD 
2679 REM serssserssgeeeseenesenes )2Q 
2689 Di:nxi=nx:nyi=ny )RJ 


2699 IF nx<x AND je(nx+t,ny)=# THEN nx=nxti:sn=1:GOTO 2 )DA 
ie IF ny<y AND jel(nx,ny+1)=8 THEN ny=nyt{:sn=2:G0T0 2 DDX 
ms ÎIF nx)x AND jelnx-{,ny)=# THEN nx=nx-1:5n=3:G0T0 2 DDB 
ne IF ny>y AND jelnx,ny-1)=8 THEN ny=ny-1:sn=4:G0T0 2 >DH 
sn=INT(RNDXx4)+1:0N sn GOTO 2749,2759,2769,2778 UV 


2748 nx=nx+1:GOT0 2789 )RA 
2758 nx=nx-1:G0TO 2788 )RD 
2769 ny=ny+1:G0T0 2788 )RE 
21778 ny=ny-{ )JA 
2789 IF nx=x AND ny=y THEN fin=1:GOTO 2889 )JG 
2799 IF je(nx,ny)>8 THEN nx=nxi:ny=nyl:El:RETURN )VY 
2898 CALL &ASOD,FN potnxi,ny1),sp(1):je(nxt,nyt)=8 VE 
2819 ON sn GOTO 2829, 2839, 2849, 2859 AK 


2829 CALL &ASSD,FN po(nx, ny), sp(18):je(nx,ny)=6:EI:RETU )EW 
a CALL &ABBD,FN potnx, ny), sp{24):je(nx,ny)=6:EI :RETU DEU 
à CALL &ABDD,FN potnx,ny),sp(21):je(nx,ny)=6:EI :RETU DER 
es CALL &ABBD,FN po(nx,ny),sp(27):je(nx,ny)=6:EI :RETU DEZ 
RN 


2860 REM HE ER Rennes tee )BY 
2879 REM : ! )TJ 
2889 REM : GESTION COMPTEURS  : )ZC 
2898 REM : ! )UA 
AB REN Hire eee )DBT 


2918 IF sc=8 THEN a$="99999":ZL=7:YL=1:GOSUB 448:RETURN AN 


2929 a$=STR$(sc) :AS=RIGHTS (AS, LEN(A$)-1) : SOUND 1,8,15,1 DJC 
5,19,,15 


2938 IF sc<if THEN ZL=11:YL=1:GOSUB 448 :RETURN )QC 
2949 IF sc<199 THEN ZL=19:YL=1:GOSUB 449:RETURN )RU 
2959 IF sc<1899 THEN ZL=9:YL=1:GOSUB 449:RETURN )RB 
2969 ZL=8:YL=1:G0OSUB 44ÿ:RETURN )BE 


2978 1F rec=8 THEN a$="99999":2L-39:YL=1:GOSUB 44G:RETU )CT 
RN 


2984 a$=STR$(rec):A$=RIGHT$(A$, LEN(A$)-1) )JH 
2999 IF rec(19 THEN ZL=34:YL=1:GOSUB 44ÿ:RETURN )RC 
3999 IF rec{199 THEN ZL=33:YL=1:GOSUB 449:RETURN )TA 
3919 IF rec(1999 THEN ZL=32:YL=1:G0SUB 44ÿ:RETURN UU 
3829 2L=31:YL=1:GOSUB 448 :RETURN BY 


3939 a$=STR$(vie):A$=RIGHTS(A$, LEN(A$)-1) 





3849 ZL=21:YL=1:GOSUB 448 :RETURN )BZ 
SSD" REM Lénine ee een | )BP 
3969 REX : : )TA 
3979 REM : FIN DE PARTIE ! )TJ 
3989 REM : : )TC 
3999 REM sosssessesegsesessseneesse )BU 
3199 FOR H=ÿ TO 3:MU=REMAINCH) :NEXT:1F GAN=S THEN 3219 DYL 
3119 REM :::: GAGNE :::: )Q 


3128 FOR T=1 TO 1999:NEXT:TA=TA+L:FOR h=1 TO 15:BORDER )ZE 
h 

3138 SOUND 1,Hx15,19, 15:NEXT: BORDER 9:FOR h=1 TO 8 )RB 
3149 CALL &AGGD,FN PO(X,Y),SP(8):SC=SC+18:GOSUB 2918  DWD 
3158 CALL &ABBD,FN PO(X,Y),SP(7):SC=SC+18:GOSUB 2919  >WD 
3169 CALL &ABBD,FN PO(X,Y),SP(9):SC=SC+18:GOSUB 2918 WG 
3179 CALL &ABQD,FN PO(X,Y),SP(7):SC=SC+19:GOSUB 2918 WF 


3189 NEXT:IF SCDREC THEN REC=SC:GOSUB 297ÿ )LU 
3199 BORDER B:GAN-9:FIN-9:GOTO 478 >CV 
3289 REM ::: PERDU ::: )PV 
3214 SOUND 4,1289,8,9,14, 14: SOUND 4,9,29,2,,,18 >MC 


3228 FOR h=1999 TO 1599 STEP 198:SOUND 4,h,34,9,15,15:N DAC 
EXT 

3239 FOR h:=1 TO 29B9:NEXT :vie=vie-t:GOSUB 3439 >PD 
3249 IF vie>ÿ THEN gan-ÿ:fin=9:G0TO 479 GX 
3259 GOSUB 479:a$="PERDU à à à":ZL=15:YL=12:G0SUB 449  DYH 
3269 RESTORE 3274:F0R h=1 TO 19:READ a,b:SOUND 1,425+(a MU 
#25),25%b, 15:SOUND 1,9,2:NEXT 


3279 DATA 3,4,3,3,3,1,9,3,1,1,1,3,3,1,3,3,4,1,3,4 )NU 
3284 a$="UNE AUTRE ? : O=N :":2L=11:YL=14:G0SUB 449 DU 
3298 A$=INKEYS:1F A$="" THEN 3299 )ZP 
3398 AS=UPPERS(A$):1F A$="N" THEN END )DQ 
3319 IF A$-"0" THEN 3329 ELSE 329ÿ )YD 
3329 A$=" ÿ4 ":2L=19:YL={:CER-2:GOSUB 44ÿ DIU 
3339 ta=1:5c=9:G0SUB 291ÿ:vie=4:fin=f:gan=f:G0TO 478 )YX 
334D RE monster en eetes sene )BR 
3358 REM : ! )TC 
3369 REM : DATA 29 TABLEAUX  : DWX 
3379 REM : : )TE 
3388 REM sirssisssseeeeneesenen: )B4 


3399 DATA 9,896,9,31,9,9,9,32,89,47,9,0,6,8,4,9,9,9,16, )ED 
49, 464,8 

3489 DATA 9,8,0,0,9,0,9,69,0,89,8,9,3,9,4,0,0,0,49,9,49 )XZ 
,$ 

3419 DATA 8,8,9,9,8,32,9,6,9,0,0,0,8,9,9,127,9,0,0,9,9, DMC 
ÿ 


3429 DATA 29,2,6,19,16,19,4,12,9 >XA 
3438 REM ::: tab 2 ::: )NL 
3449 DATA 8,932,51,2,2,2,2,2,2,2,2,9,8,392,14,9,0,64,64, )DG 
64,9,64 


3459 DATA 32,9,12,8,9,8,9,0,9,9,8,9,0,64,6,9,9,0,7,9,9, NT 
ÿ 
3469 DATA 9,8,9,0,0,9,969,16,16,16,16,8,9,9,9,9,9,9,8,8 AL 


,64,8 
3478 DATA 6,3,4,12,17,11,18,4,1,2,2 > AH 
3489 REM ::: TAB 3 :: >MP 


3499 DATA 9,8,192,9,9,8,32,32,9,8,129,9,7,5,0,128,328,1 >GQ 
28,9,9,8,9 

3599 DATA 8,768,1,1,144,9,2,269, 384,16, 16,64,64,9,24,B, )LX 
9,4,8,192,1,8 


DJE m 3519 DATA 8,8,9,0,0,9,9,0,9,0,0,8,9,9,0,9,9,8,9,9,9,0 RL 





3529 DATA 3,3,18,19,9,9,3,5,2,6,9,17,3 

3539 REM ::: TAB 4 ::: 

3549 DATA 9,0,8,0,0,0,9,500,0,490,6,0,0,0,8,9,0,0,136,8 
, 248,8 

3554 DATA 128,4,9,0,9,128,9,9,9,9,0,16,9,8,256,16,9,0,0 
,2,9,8 

3569 DATA 256,256, 256, 256,256, 256,519,0,9,9,0,2,2,2,2,2 
,2,511,9,9,9,0 

3578 DATA 2,2,5,5,14,5,18,12,1,8,4 

3589 REM ::: TAB 5 ::: 

3598 DATA 8,1,1,16,1,256,4,0,64,8,9,48,09,9,0,9,9,0,16,9 
8,0 

3698 DATA 9,8,9,9,0,0,9,9,0,0,0,0,0,9,0,9,0,0,0,9,0,9 
3619 DATA 127,9,519,9,326,88, 347, 336, 1,365, 256, 463,15, 4 
88,6,489,119,371,3,375,375,7 

3628 DATA 3,2,4,2,19,6,6,12,1,5,5 

3638 REM ::: TAB 6 ::: 

3649 DATA 9,0,9,0,0,512,9,0,8,8,0,0,0,9,4,65,0,9,9,9,9, 
f 

3659 DATA 512,9,9,8,9,9,9,4,9,256,512,8,9,9,0,4,9,0,0,9 
,8,9 

3669 DATA 49,0,8,0,224,0,224,8,0,0,0,8,9,0,0,9,0,8,9,9, 
8,9 

3679 DATA 7,2,4,7,19,11,15,4,1,15,6 

3689 REM ::: tab 7 ::: 

3609 DATA 17,19,4,2,9,2,9,139, 324,138, 17,32, 324, 136, 269 
2, 256, 9, 256, 128, 329,32 

3780 DATA 4,8,1,9,1,128,129,9,1,8,4,128,9,0,0,4,4,9,9,9 
, 9, 128 

3719 DATA 64,32,16,8,4,9,4,8,16,32,64,8,16,32,64,128,9, 
128,64, 32,16,8 

3729 DATA 6,2,4,19,18,4,29,12,3,3,9 

3739 REM ::: TAB 8 ::: 

3749 DATA 256,9,9,9,8,32,0,0,0,0,256,0,9,0,0,49,16,49,0 
,0,1,8 


3758 DATA 8,512,9,0,89,0,89,9,9,512,9,9,1,9,0,0,0,0,0,0 


0,9 

3768 DATA 512,228,1,1,1,8,1,1,1,223,649, 7,508, 256, 256,2 
56,8,256,256,256,598, 7 

37178 DATA 17,2,3,4,19,19,17,12,1,11,7 

3789 REM ::: TAB 9 ::: 

3799 DATA 8,528,9,512,9,512,128,512,9,539,8,8,21,29,1,9 
,1,9,1,32,1,8 

3899 DATA 512,68,512,9,512,8,512,9,512,68,512,21,8,1,9, 
1,8,1,8,1,8,1 

3819 DATA 8,8,9,9,8,8,0,1,0,9,0,8,384,256,9,256, 256,256 
,256,8,8,8 

3829 DATA 17,2,3,4,13,7,17,3,3,19,2 

3838 REM ::: TAB 19 ::: 

3849 DATA 8,8,9,238, 168, 172,168,238,8,9,9,0,9,9,348,336 
, 344,336, 464, 9,9,9 

3859 DATA 9,8,9,512,512,512,512,512,9,8,9,09,8,8,1,1,1,1 
,1,8,8,9 

3869 DATA 8,255,9,9,9,0,9,0,9,255,9,0,519,8,8,8,0,0,9,9 
518,8 

3879 DATA 17,6,13,8,28,12,28,2,1,7,7 

3889 REM ::: TAB 11 ::: 

3899 DATA 8,169,9,169,9,29,8,169,0,169,9,9,28,0,28,9,16 
9,4,29,0,29,9 


)CH 
NP 
)BR 
BH 
MT 
)22 
NY 
)ZB 


)RL 
)GQ 


)YN 
NT 
WA 


)2Y 


>GH 
DAT 
)PG 
)TZ 
)DE 
)BY 
>BB 


)PN 
KB 











3999 DATA 8,272,169,272,9,0,9,272,169,272,0,0,54,29,34, DPR 
9,8,9,34,29,34,0 
3919 DATA 257,4,4,8,1,1993,1,4,4,4,256,2,8,128, 128,9,35 RP 
1,9,128,128, 128,2 


3929 DATA 3,4,19,4,2,12,29,2,8 VE 
3939 REM ::: TAB 12 ::: >PK 
3949 DATA 89,8,9,256,256,256,256,256,9,8,9,9,8,0,2,2,8,2 DEB 
,2,8,8,0 


3959 DATA 682,341,682,9,8,0,9,0,682,341,682,341,179,341 DYT 
,8,9,0,0,9,341,179,341 

3969 DATA 9,8,9,0,8,99,9,9,8,0,9,0,8,0,9,8,414,0,8,9,9, DWB 
ÿ 

3978 DATA 18,3,18,11,5,12,11,6,9 >XA 
3989 REM ::: TAB 13 ::: )PR 
39909 DATA 8,8,9,0,8,8,224,169,0,9,9,0,8,8,0,8,9,8,0,0,9 DXF 
ÿ 

, 

4899 DATA 8,9,9,0,9,255,8,8,9,8,0,9,0,0,9,0,489,9,8,9,9 DXN 

ÿ 

, 

4919 DATA 8,0,0,0,9,0,0,0,8,9,0,0,0,29,29,29,29,29,28,2 DAK 


8,9,8 
4929 DATA 5,9,17,9,19,11,3,7,2,3,19,19,4 DEV 
4939 REM ::: TAB 14 ::: )PD 


4948 DATA 9,132,9,130,9,132,9,138,9,132,0,9,4,8,4,0,4,8 DDX 
,4,4,4,8 

4958 DATA 9,2,9,4,8,2,9,4,8,2,8,16,8,16,9,16,9,16,9,16, DZT 
9,16 

4969 DATA 518,96,518,96,518,96,518,96,518,96,518,1,29B, CD 
9, 298,9, 298,9, 298,9, 298,90 

4979 DATA 19,3,11,6,2,11,17,2,89 DJ 
4989 REM ::: TAB 15 ::: )PK 
4999 DATA 9,8,9,128,9,0,0,128,0,8,0,0,4,9,9,0,9,0,4,8,6 DXE 
,Ÿ 

4199 DATA 8,128,9,8,6,9,0,0,9,128,9,9,0,8,9,9,9,0,0,8,8 DXE 
,Ÿ 

4119 DATA 8,8,258,2,2,254,2,2,258,9,9,0,9,130,128, 128,2 DTT 
52,128, 128,139,8,9 

4129 DATA 16,5,9,6,15,9,12,7,8 >WM 
4139 REM ::: TAB 16 ::: )PG 
4140 DATA 546,68,34,68,546,68,546,9,9,0,9,68,136,68,136 DTX 
,68,136,68,9,9,9,9 

4158 DATA 136,273, 136,273, 136,273,136,8,9,9,8,546,34,54 DZV 
6,34,546,34,546,9,9,9,9 

4169 DATA 8,8,9,9,9,0,9,254, 128,128, 128,9,9,0,0,0,0,8,5 DER 
ÿ98,4,4,4 

4178 DATA 2,4,16,11,6,11,19,11,8 > XD 
4189 REM ::: TAB 17 ::: )PN 
4199 DATA 9,8,8,0,0,0,0,0,0,9,0,0,9,0,8,9,9,0,8,0,6,8  )TJ 
4298 DATA 8,9,0,1,9,16,9,0,9,9,0,256,9,8,128,9,8,9,0,8, AM 
#,256 

4219 DATA 256,65,2,4,264,256,8,4,2,1,256,2,136,64, 32,18 DRR 
,8,16,32,64, 128,8 

4229 DATA 16,7,11,9,2,12,2,6,8 )VG 
4239 REM ::: TAB 18 ::: PK 
4249 DATA 9,64,9,9,0,256,9,0,9,9,0,9,0,8,0,16,0,9,0,16, DYR 
ÿ,1 

4258 DATA 9,128,0,9,9,9,0,9,9,9,9,9,9,16,9,9,9,16,8,9,9 DXX 
8 

4268 DATA 16,9,8,9,9,8,9,9,9,32,8,322,9,9,9,0,64,8,9,8, DYT 
9,8 


28 


4279 DATA 29,2,7,7,19,7,2,2,2,2,9,5,2 )BE 
4289 REM ::: TAB 19 ::: )PR 
4299 DATA 8,128,9,9,9,128,9,9,8,128,9,8,4,0,8,9,4,0,0,6 >ZH 
,4,8 

4399 DATA 8,9,9,128,9,9,0,128,0,0,9,0,0,9,4,0,9,0,4,9,9 DXY 
,Ÿ 

4319 DATA 2,2,2,2,2,8,9,0,8,9,8,256,256,256, 256, 256,9, DEV 
,2,8,8,9 

4329 DATA 11,2,14,9,4,19,11,3,3,11,19 )BR 
4339 REM ::: TAB 29 ::: )PD 
4348 DATA 8,8,121,65,65,113,65,65,9,9,0,9,9,72,194,1f4, DMA 
88,38, 72,9,8,0 


4358 DATA 9,8,9,9,0,0,0,0,0,9,0,8,9,0,0,0,0,0,9,9,9,8 RP 
4369 DATA 9,0,9,9,0,0,0,0,0,0,0,0,0,0,9,0,0,0,0,9,9,9  )DRQ 
4379 DATA 6,6,15,4,11,19,2,2,2,29,2,28,19 )FN 
4388 REM ::: EXPLICATIONS ::: >XM 
4309 fin=1:GO0SUB 478:fin=8 >VH 
4498 a$="TROIS OEUFS" :ZL=15:YL=4:GOSUB 449 DMC 


4419 a$="ALIGNER TROIS OEUFS HORIZONTALEMENT" :ZL=5:YL=6 DUJ 
:GOSUB 44ÿ 

4429 a$="OU VERTICALEMENTE<<<CLASSIQUEààà":ZL=2:YL=8:G0 NL 
SUB 449 

4439 a$="MAIS CROYEZ MOI=IL VOUS FAUDRA PLUS":ZL=5:YL=1 DUJ 
ÿ:GOSUB 44ÿ 

4449 a$="QUE DE LA CHANCE POUR TERMINER LES 29":ZL=2:YL DVK 
=12:GO0SUB 449 

4459 a$="TABLEAUX QUE JE VOUS AI RESERVE(":ZL=2:YL=14:G >PH 
OSUB 449 

4469 a$="EN CAS DE BLOCAGE VOUS UTILISEREZ":ZL=5:YL=1 )TJ 
6:GOSUB 44ÿ 

4479 a$="LA TOUCHE DESPACE» POUR REJOUER(":ZL=2:YL=:18:G PQ 
OSUB 44ÿ 

4489 a$="VOUS EN SAVEZ ASSEZ<C<<A VOUS à" :ZL=5:YL=:28:G DMU 
OSUB 449 

449$ A$=" 1 - JOYSTICK <<< 2 - CURSEURS":ZL=5:YL=23:G0 DKN 
SUB 44ÿ 

4599 AS=INKEYS:IF A$="" THEN 4599 )ZD 
4518 AS=UPPERS(AS):IF A$="{" THEN GA=74:DA=75:HA=72:BA= DV 
73:FE=76:RETURN 

4529 IF A$="2" THEN GA=8:DA={:HA=ÿ:BA=2:FE=9:RETURN DV 
4539 GOTO 4599 M] 
4544 CALL &BB18:MODE 1:LIST 4399-454ÿ:END DHX 


DATAOEUF 


5 MEMORY 4959:CLS:MODE 1 
7 LOCATE 1,18:PRINT " DATAS DE LA LIGNE CORRECTS":PEN 2 


18 A-8OSEB:F=RAGES:L=199:WHILE AC<F:FOR A:A TO AtIS:READ C$:K=V 


AL(""4CS):S=S+K+655364(S+K)32767): IF AC=F THEN POKE A,K 


29 NEXT:READ D$:T=VAL("&"+D$):1F TS THEN PRINT CHR$(7);"Erreu 


r ligne";L:END ELSE L:L+5 

25 LOCATE 29, 19:PRINT L-5:WEND 

199 DATA 99,00,99,00,00,00,09,00,09,00,00,09, 00,09, 00,09, 9000 
195 DATA 69,90,00,00,00, 09,00, 00,00,00,00,90,00,08,00,99, 6060 
119 DATA 99,06, 06, 00,09, 00,00,00,00,00,00,09, 00,00, 06,09, 0009 
115 DATA 69, 00,00,00, 00,90, 00,00,09,00,00,00,06,06,00,00, 0060 
129 DATA 4C,CC, 4C,CC,5D,CC,5D, CC, 5D,FF,5D,FF,8C,9C, C, 8C, 976 














29 


139 DATA 
135 DATA 
148 DATA 
145 DATA 
159 DATA 
155 DATA 
169 DATA 
165 DATA 
179 DATA 
175 DATA 
184 DATA 
185 DATA 
199 DATA 
195 DATA 
288 DATA 
295 DATA 
219 DATA 
215 DATA 
228 DATA 
225 DATA 
239 DATA 
235 DATA 
249 DATA 
245 DATA 
258 DATA 
255 DATA 
269 DATA 
265 DATA 
278 DATA 
275 DATA 
288 DATA 
285 DATA 
298 DATA 
295 DATA 
399 DATA 
395 DATA 
319 DATA 
315 DATA 
328 DATA 
325 DATA 
334 DATA 
335 DATA 
348 DATA 
345 DATA 
359 DATA 
355 DATA 
369 DATA 
365 DATA 
378 DATA 
375 DATA 
389 DATA 
385 DATA 
398 DATA 
395 DATA 
459 DATA 
495 DATA 
419 DATA 
415 DATA 





' 125 DATA CC, 4C,CC, 4C, CC, 5D,CC, 5D,FF,5D,FF,5D,9C,9C,9C, SC, QED4 


4C, CC, 4C, CC, SD, CC, 5D, CC, 5D, FF, SD, FF, C, 0C, BC, QC, 163E 
CC, 4C, CC, 4C, CC, D, CC, SD, FF, 5D, FF, 50,49, 00,00, 09, 1D78 
00,09,00, 00, 7D, BB, 33,BE,F5, FO, FD, BE, A4, 1C. 00, 3C, 2430 
BE, 1C, 3, 3C, BE, 76, 3C,B4, BE. F5, FO, BE, B4,FF,F5, BE, 2E7B 
BE,FF,FF,A4,FA,FA,FF,Ba,FA,FF,FO,B4,FF, FA, F4, 2C, 3C34 
Ba, F0,F5,2C, BE, FA, B4, 20, 44, 1C, F9, 1C, 78,2C, 20, 3C, 4469 
09,00,00,00,09, 00,00, 09,00, 44,88, 09,00, CC, 33,00, 4634 
09,99, 33, 99, 44, 33, 33, 22, 44, 33, 33, 22,44, 39,33, 22, 4964 
44,66, 33, 22, 44,66, 33, 22, 44,66, 33, 22, 44,66, 33, 22, 4D69 
44,33,99, 22, 44,90, 33, 22,49, CC, 33, 09,08, 44,88, 00, 516F 
09,00,09,00,54, 09, 28, 22,90, 39,54, 09, 22,09, 09,54, 5330 
14,11,F8,11,90, FC, 36, 49,54, 36, TC, 22, 28, 81,33, 08, 5864 
98, B9, 72, F4, 76, 36, 39, 8,99, 7, 36,B1,14,11,F8, 00, 5E00 
B9, 89, 09,54,11,14,54, 09, 14,04, 22,11,00,00,08,00,695D 
09,48,09,00,48,54,08,F6,00, B4, AB, F4, 59, F9, AB, AB, 67D9 
FC, 33, 7C, 99, F8, 33, F4, 48,B1,B1,B4, AB, BC, FD, 72, 78, 710F 
BC, 78,33, F9, FC, B1,33,F4,54, 33, 72, 7C, F8, 81,36, A8, 7ACG 
54,81,F4,A8,54,F8,7C,54,54,F8, 48, 00, A8, FC, 08, A6, 83BB 
3C, 14,28, 90,30, 3C, 3C, 09, 3, 3C, 33,08, 14, 30,62, 14, 8658 
14,30, 30, 4C, 14, 30, 28, 28,09, 3C, 3C, 90,00, 74,28, DB, 8BCC 
92, 74,38,01,08,74,30,01,02,61, 99,02, 81, BA, AA, 99, 8C12 
81,FF,AB,89,01,FF,02,00,01,FF,93,09,01,0F,0F, 02, GFE3 
3C, 14,28,09, 30, 3C, 3C, 08, 3C, 3C, F9, 08, 14, 3C, ED, 14, 03BB 
14,30, 30, 30, 14, 3, 28, 28,99, 3C, 3C, 00, 06, 18, 20, DB, 95D3 
02, 74,39,02,02, FC, 39,01,01,92, 39,01,83, 92, 39, 02, 9935 
47,57,B,99,CF,57,4B,91,4F,99,FF,02,07,0B,9F,0B, ODCF 
3c, 14,28, 98, 3C, 3C, 3C, 99, 3C, 3C, F0, 00, 14, 3C, EG, 14, A1A7 
14,30, 3, 3C, 14, 30, 28, 28,09, 3C, 3C, 99,08, 18, 29, 60, A3BF 
02, 74,30, 02,02, 74,30,01,98, 30,92, 01,03, BA, 92, 92, A722 
57,FF,AB, 80, FF, AB, 47,03,5F,93,CF,6F,97,0F,47,0R, ACFF 
08, 14,28, 3C, 08, 3C, 3C, 3,08, 33, 3C, 3C, 28,91, 3C, 28, AFF3 
3C, 30, 30, 28, 14, 14, 3C, 28, 09, 3C, 3C, 00,00, 14,88, 08, B298 
02, 30, B6, 01,02, 30,B6, 00,01, 30,92,91,09,55, 75,02, B60Q 
09,57,FF,92,00,81,FF, 02,00,03,FF,02,01,0F,9F,02,BO7F 
00, 14,28, 30,08, 3C, 30, 3C, 98, F8, 30, 3C, 28, D9, 3C, 28, BDGF 
3C, 30, 30, 28, 14, 14, 3C, 28,99, 3C, 3C, 00,08, 19, 20,00, BFB3 
61,30,B6, 81,92, 30,FC, 01,92, 30,61,02,91,39,61,93,C2C6 
09,57, AB,8B,92,57,AB,CF,91,FF,99,8F,07,0F,07,0B, C7ED 
00, 14,28, 3C, 98, 3C, 3C, 3C, 99, FO, 3C, 3C, 26, DA, 3C, 28, CBDO 
3C, 30, 30, 28, 14, 14, 3C, 28, 09, 3, 3C, 04,90, 12, 24,60, CDE4 
91,39,B8, 91,92, 39,B6,01,02,61,30,00,91,61,75,03,D126 
90,57,FF, AB, 93, 8B,57,FF,4F,CF,03,AF,97,0B,0F, DB, D707 
30,98, 14, 28, 3C, 3C, 3C, 28, 0, 36, 36, 28, 14, 94,94, 09, DAG7 
14,30, 30, 99,49, 2C, 28, 09, 19,34, 30,60,54, 38,74, 60, DCB3 
54,30, 74,00,41,30,74,09,00,30,61,00,60, BA, AA, 09, ED85 
98,FF, A4, 80,00,FF, AA, 09,06, AA,0F, 00,05, 04,00, 08, E49F 
30,98, 14, 28, 3C, 30, 3C, 26, 0, 36, 36, 28, 14, 94,94, 09, E7FF 
14,30, 3C, 09,89, 2C, 28, 09, 19,34, 30,00,54, 30, 70,00, EA4B 
54,30, 74,00,54, 30,61, 00,41, 39, 20, 09,09, BA, AA, 09, EE1D 
09,FF, A4, 00,00,FF, AA, 09,05, 0A, AA, 00,08,00,0F, D9,F237 
30,98, 14, 28, 3C, 3C, 3C, 28, 3C, 3C, 30, 28, 14, 3, 3C, 09, F4F3 
14,3C, 3C, 99,40, 3C, 28, 09, 19, 38, 30, 00,54, 38, 74,00, F74B 
54,30, 74,00,54,30,61,00,41,75,20,00,90,FF, AA, 09, FBA7 
09,FF, AA, 09,09,FF, AA, 00,05,0A, AA, 09,08,00,0F,08,FFCI 
30,98, 14, 28, 3C, 3C, 3C, 28, 30, 3C, 4C, 28, 14, 3C, 3C, 69, 0270 
14,3C, 3C, 89,89, 3, 28, 09, 19, 39, 30, 00,54, 39, 74,08, 0405 
54,30, 74,00,41,39,74,00,00,75,61,00,09,FF, AA, 09, 0931 
08,FF, A4, 80,09, FF, AA, 09,09, AA, 0F,00,05,0A,00, 08, ODAB 


420 DATA 00,00,00, 00,00, 00,09,00,00,60,09, 09,00, 09, 09,99, GD4B 
425 DATA 60,09,00, 00,00, 09,00, 00, 00,00, 00, 00,00, 33, 23,00, ODA! 
439 DATA 19,33,33,02,91,33,F8, 03,31, 33, 79,33, 33,33, 79, 3B, 1188 
435 DATA 33,33, 33, 33, 33, 33, 33, 23, 33, 33, 33, 23, 11, 33, 33, 92, 1445 
448 DATA 09,00,05, 00,09, 00,00,00,09,00,00,09, 60, 0F, 0B, 09, 145F 
445 DATA 59,9F,C, 09, A5, 04,85, 92,45, 14,85, 93,9F, 1A,85,0F, 1874 
45 DATA 9F,6F,0F,0F,0F,0F,9F,0F,0F,0F,0F,0B,0F,0F, OF, QE, 195C 
455 DATA 8F,0F,0F,08,0F,0F,0F,0B,A5,0F,0F,02,58,0F,0F, 92, (BD! 
468 DATA 98,38,92, 00,99, 33,23, 00,18, 33, 33,00, 19, 33, 3C, 99, 1C7E 
465 DATA 31,72,B4, 92, 31, 32, B4, 92, 31, 32, B4, 23, 31, 33, 33, 23, 20E4 
478 DATA 31,33, 33, 23,31, 33,33, 03,31, 33, 33,83, 31,33, 33,93, 236C 
475 DATA 31,33, 33, 02, 39, 33, 33, 02, 19,33, 33, 00,08, 33, 23,08, 2569 
489 DATA 99,09,00,00,09,00,08, 00,00, 69,09, 09,09, 09, 09,09, 2569 
485 DATA 00,00,00,00,00,00,09,00,00,00,09,00,08, 13, 33,08, 25AF 
49ÿ DATA 61,33, 33, 20,93, F8, 33, 32,33, B0, 33, 32, 37, BO, 33, 33, 2A23 
495 DATA 33,33, 33,33, 13, 33, 33, 33, 13,33, 33, 33, 91, 33, 33, 22, 2CD9 
599 DATA 99,09,09,00,00,09,00, 00,00, 09,09,00,00,07,0F, 09, 2CE6 
595 DATA 99,3C,0F, A2, 91,44, 85,5B,03, 44, 25,58, 0F, 4, 25, 0F, 3058 
519 DATA 0F,0F,0F,0F,0F,0F,0F,0F,07,0F,0F,0F,07,0F,0F,0F, 3138 
515 DATA 27,0F,0F,0F,07,0F,0F,0F,01,0F,0F,5B,01,0F,0F, A2, 32DB 
529 DATA 99,01,39,00,00,13,33, 00,00, 33, 33, 20,00, 9F, 33, 29, 346A 
525 DATA 91, 74,81, 32,91, 74, 31,32, 13, 7A, 31,32, 13,33, 33, 32, 3841 
539 DATA 13,33,33, 32,93, 33, 33, 32,93, 33, 33, 32, 03, 33, 33, 32, 3ABD 
535 DATA 81,33,33, 32,01, 33, 33, 39,09, 33, 33, 29, 08, 13, 33, 08, 3CBQ 
549 DATA 09,00,09, 00,00, 00,00, 00,00,09,90,09,00, 09, 00,09, 3CRQ 
545 DATA 69,13,67, 00,81, 33,33, BA, 01,33, 33, 84, 13, 33, 33,67, 3FF5 
559 DATA 13,81, 72,67, 72, 19, A4, 33, 72, 19, A6, 33, 33, 33, 33, 33, 4522 
555 DATA 33,33, 33, 33, 33, 33, 33, 33, 13, 33, 33, 67,91, 33, 33, 8, 4888 
569 DATA 99,09,00,00,00,00,09,00,09,07,5A,00,01,0F,0F, A9, 49AB 
565 DATA 91,0F,0F, A9, 87, 4A, 44, 5A,07,84,84,5A,0F, 84,84, DF, 4DEE 
578 DATA 0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,8F,0F, 0F,0F, 4EDE 
575 DATA 87,0F,8F,54,87,0F,0F,5A,01,0F,0F, AB, 08,0F,0F, 09, 589 
569 DATA 99,03,CF,09,01,11,33, 00,01, 33,33, BA, 81, 72, 72,84, 5438 
585 DATA 13,A4,A4,CF, 13, 4, A4, CF, 13,33, 33,67, 13,33, 33,67, 5A44 
599 DATA 13,33, 33,67, 13, 33,33, 67,13, 33, 33,67, 13, 33, 33, 67, 5DC4 
595 DATA 93, 33, 33, CF, 3, 33, 33, CF, 01,33, 33, 8A, 98, 13,67,98,619F 
669 DATA 99,00,09,00,09,00,09,00,09,00,09,00, 00,00, 09, 00,619F 
685 DATA P0,13,67,09,01,33, 33, 8A, 91,33, 33, BA, 13,33, 33,67, 64DB 
619 DATA 13,33, 33,67, 33, 33,33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 681F 
615 DATA 33,33, 33, 33, 33, 33, 39, 33, 13, 33, 33, 67,91, 33, 33, 84, 6B88 
629 DATA 06,09,00, 09,00, 00,00, 09,90,07,5A,09,61,0F,0F, A9, GCAG 
625 DATA 81,0F,0F,A9,07,0F,0F,5A,07,0F,0F,5A,0F,0F,0F,0F,GEAI 
639 DATA 9F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,0F,6F0i 
635 DATA 87,0F,0F,5A,07,0F,0F,5A,01,0F,0F, A9,06,0F,0F, 90, 7160 
649 DATA 09,03,CF,00,01,11,33,09,01,33,33, 84,01, 33, 33, 84, 7465 
645 DATA 13,33, 33,67,13, 33, 33,67, 13,33, 33,67, 13,33, 33,67, 77E5 
659 DATA 13,33,33,67, 13,33, 33,67, 13, 33, 33,67, 13, 33, 33,67, 7B65 
655 DATA 83,33, 33,CF, 03, 33, 33, CF, 91,33, 33, 84,08, 13,67, 08, 7F49 
669 DATA 09,15, 2, 09,00, 3F,9F,09,15,9F,6F, 2A,3F, CF, 6F,9F, 83C6 
665 DATA 37,6F,37,9F,3B, CF, 33, 3F, 3D,67,67,9E, 3D,6F, CF, 39, BA1B 
678 DATA 33,CF,9E, 36,36, CF,CF, 3C, CF, 9E, CF, JE, 6D, CF, CF, E, 9384 
675 DATA 6D,CF, 30, 9E, 14,6F,CF, 28, 09, 3D,9E, 09, 08, 14, 28, 08, 982B 
689 DATA DD,5E, 99, 00,56, 91,DD,6E, 92, DD, 66,43, 86,98, C5, ES, 9EES 
685 DATA 96,82, 14, 77,23,13,19,FA,E1,CD, 26, BC, C1, 19, EF, C9, A5D7 
698 DATA 45,CF,45,CF,11,11,11,11,44, 44,44, 44, 49, C9, 09,09, AA53 
695 DATA 99, 84,45, 64,09, 22, 09, 22, 09,66, 09,68, 49,CD, 90,08, AEGD 
799 DATA 45,CF,45,45,99, 11,09, 11,99, 88, 44,09, 49, CO, 09,09, B18C 
785 DATA 45,CF,45,05,89, 11,09, 11,09, CC, 09, 44, 49, CB, 90, 98, B55C 
719 DATA 99,45,08,CF,09,33,11,11,44, CC, 99, 44, 09, 49, 09, 09, 859 











715 DATA 45,CF,45,99, 11,99, 09, 33,09, 44, 44,44, 4ÿ,C8,08, 88, BBC2 
729 DATA 45,CF,45,45,11,09,11,33,44,44,44,44,49,C0,00,89,BFC5 
125 DATA 45,CF,08,45,99, 11,09, 22,99, B8, 44, 09, 49,09,08B,88,C25D 
739 DATA 45,CF,45,45,11,11,11,33,44,44,44,44,49,C9,699,09,C671 
735 DATA 45,CF,45,45,11,11,11,33,09, 44,99, 44, 49,C8,08, 00, C9FD 
749 DATA 09,00,08,00,00,00,09,00,00,26,09,09, 00, A6, 09,99, CACD 
745 DATA 99,69,99,00,09,09,09,09,09,28,99, 90,98, A8,54,90,CBFI 
759 DATA 99,00,09,00,00,00,00,00,90, 00,00, 28,09,A6,09,99,CCCI 
755 DATA 09,99,09, 00,00, 09,09,09,09,00,90, 28,99, A8,54,98,CDES 
769 DATA 99,22,09,22,51,09,00,00,00,00,00,00,00,09, 60,09, CE7A 
765 DATA 99,22,11,11,51,51,09,51,09,28,99,09,99, AB,06,00,D661 
778 DATA 99,22,09,22,00, À2,09, A2,06,26,00,09, 09, AB, 09,99, D2D9 
775 DATA 11,33,11,33,51,51,51,51, 14,930, 14, 14,54,54,99,08,D5C5 
789 DATA 11,33,11,33,51,51,51,51,14,28,14,14,54,FC, 69,899, D945 
785 DATA 11,33,11,33,51,99,51,09, 14,99, 14,90,54,FC,99,98,DBE7 
799 DATA 11,22,11,33,51,51,51,51,14,14,14,14,54,FC, 99, 89, DF42 
195 DATA 11,33,11,33,51,09,51,09, 14,28, 14,09,54,FC, 99,08, E29C 
898 DATA 11,33,11,33,51,09,51,09, 14,28, 14,08,54,99,09,99,ES3DA 
895 DATA 11,33,11,33,51,51,51,99, 14,96, 14,14,54,FC,99,6B,E6E 
818 DATA 11,11,11,11,51,51,51,51,14,3C, 14,14,54,54, 09, 89,E989 
815 DATA 11,33,89, 22,99, A2, 99, A2, 09,28, 09,28,54,FC, 98,09, ECD3 
828 DATA 11,33,99, 22,09, À2,00, À2,90,28,09,28,54, A6, 09,08, EFC9 
825 DATA 11,11,11,11,51,51,51, A2, 14,28, 14,14,54,54,09,08,F2AE 
838 DATA 11,99,11,08,51,00,51,09,14,09,14,09,54,FC, 99, 99,F4EA 
835 DATA 11,11,11,33,51,F3,51,51,14,14,14,14,54,54,99,08,FB2F 
849 DATA 11,11,11,11,51,F3,51,F3,14,3C,14,14,54,54,99,09,FC1A 
845 DATA 11,933,11,11,51,51,51,51,14,14,14,14,54,FC, 08,08, FF64 
859 DATA 11,33,11,33,51,51,51,51,14,3C,14,98,54,09, 90,09, D1EB 
855 DATA 11,33,11,33,51,51,51,51, 14,14, 14,14,54,FC, 99, AB, D5FC 
868 DATA 11,33,11,33,51,51,51,51,14,28,14,14,54,54, 09, 09, D8D4 
865 DATA 11,33,11,33,51,99,51,99,14,3C,09,14,54,FC, 08,00, 9BB2 
878 DATA 11,33, 11,33,99, A2,90, A2, 09, 28,09, 28,00, A6, 99,99, DE76 
875 DATA 11,11,11,11,51,51,51,51,14,14,14,14,54,FC, 99,08, 119F 
889 DATA 11,11,11,11,51,51,51,51,14,14,14,14,99,A8,90,09,141E 
885 DATA 11,11,11,11,51,51,51,51,14,3C, 14,3C,54,54, 09,08, 16EE 
898 DATA 11,11,11,11,51,51,99, A2,05,28,14,14,54,54, 99,09, 196E 
895 DATA 11,11,11,11,51,51,99, A2, 99, 28,99, 28,99, A6,09,90,1BEE 
994 DATA 11,33,99,11,99,51,09, A2,69,286,14,99,54,FC, 89, 99, 1EC2 
995 DATA 69,89,09,00,09,09,09,00,99,09,09,09,99,08,99, 00, 1EC2 
918 DATA 7C,C6,98,67,D8,D5,11,58,C8,19,D1,C9, 89, DD, 6E, 89, 2637 
915 DATA DD,66,41,DD,5E, 92, DD, 56, 43,3E, 19, 47,C5,D5,3E, 94, 2C5F 
928 DATA 4F,96,99,ED,B9,EB,E1, CD, 98, A9,EB, C1, 19,EE, CO, 7C, 3579 
925 DATA D6,88,67,CB,74,C8,D5, 11,B9,3F, 19,D1,C9, AA, C2, DD, SE8E 
939 DATA 6E,99,DD,66,41,22,3D, Aÿ,C9, 2A, 3D, A9, CD, 2F, AG, CD, 4578 
935 DATA 2F,A8,CD, 2F, A8, CD, 2F, A9, 22, 3D, A9, ED, 5B, 3D, AG, DD, 4D89 
949 DATA 6E,99,DD,66,91,CD, 19, A9,C9, 2A, 3D, AG, 89, CD, 89, A9, 53F5 
945 DATA CD,98, A9, CD, 89, AS, CD, 89, A9,C3,58, AB, CD, SD, A8, 21, 5B92 
954 DATA E9,95, DD, 5E,92,DD,56,93,1B,3E,91,32,1F, A9, CD, 19, 61AB 
956 DATA A9,3E, 84,32, 1F, A, C9, CD, 9D, AŸ, 21, E9,95,DD,SE, 92,6894 
964 DATA DD,56,43,13,13,13,13,C3,89, A9, CD, 49, A9, ED, 5B, 3D, 6F3D 
965 DATA Aÿ,21,A9,09,ED, 5A,EB, 21,E9,05,3E, 94, 32, 1A, AG, CD, 7661 
97ÿ DATA 19,A9,3E, 19,32, 1A,A8,C9,CD, 69, AS, 2A, 3D, A9, CD, 2F, 7CF6 
975 DATA A9,CD,2F, AS, CD, 2F, A9, CD, 2F, AD, C3, B6, AG, 99, 08,08, 8483 
988 DATA 99,00,00,00,00,09,00,09,00,00,86, 00,00, 09, 09,09, 8483 
1899 CLS:PRINT " FICHIER LANGAGE MACHINE CORRECT..." 

1918 PRINT:PRINT:PRINT 

1928 PRINT "UNE TOUCHE POUR LA SAUVEGARDE..." 

1938 CALL &BB18 

1849 SAVE "OEUFBIN",B, &95ES, &B9O wm 
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ne ire 
EXPLORER 


Guy DUBUS 





Valable pour CPC 664 - 6128 


Vous désirez disséquer un 
programme BASIC listé dans CPC 
Infos ? Vous y retrouver dans les 
méandres de vos propres œuvres ? 
EXPLORER est l'outil qu'il vous 
faut. 


ssocliez-le à un utilitaire donnant les références 
croisées des variables BASIC et à l'usage de 
TRON (avec sortie sur imprimante) , et vous 
disposerez d'une boîte à outils complète d'aide à la 
programmation. EXPLORER analyse ligne par ligne un 
programme BASIC sauvegardé en ASCII (même prin- 
cipe que ANTI-ERREURS) à l'aide des fonctions INSTR, 
MIDS et VAL, très rapides en Basic Locomobtive. 
En sortie (sur écran ou sur imprimante), vous obtenez, 
suivant l'option choisie : 
- les GOTO et les ON...GOTO : ligne où se trouve la 
commande, et ligne(s) appelée(s) 
- les GOSUB et les ON... GOSUB : idem 
- les RESTORE : ligne où se trouve la commande, et 
ligne pointée 
- les RSX : ligne, et nom de chaque RSX (avec tous ses 
paramètres éventuels) 
- un mot-clé (mot réservé du BASIC ou une expression 
quelconque : chaîne de caractères recherchée, et 
lignes où elle est trouvée. 
La 5ème option est très intéressante : vous pouvez 
demander : 
- Un mot-clé non prévu dans les options précédentes 
- une expression : 
- un mot-clé avec paramètres ou une association de 
mot-clé : 
GOSUB 750 
ON BREAK STOP 
etc. 
e une expression contenant ou non un mot-clé : 
IF variable=28 THEN 
a=(b-c)"d 
etc. 
e Un nom de variable : vous saurez alors à quelle(s) 
ligne(s) cette variable est utilisée.Pour une seule varia- 
ble à la fois, cela peut vous dépanner si vous ne dis- 
posez pas d’un utilitaire de références croisées. 


Faites bien attention à la manière dont vous écrivez la 
chaîne dont vous demandez la recherche ; les mots- 
clés doivent toujours être écrits en majuscules, et les 
noms de variables exactement comme Ils sont écrits 
dans le programme (encore une bonne ralson de tou- 
Jours écrire les noms de variables en minuscules). En 
effet, la fonction INSTR ne confond pas les majuscules 
et les minuscules. 

Pendant l'exploration, un compteur en haut à gaur- 
che de l'écran affiche le numéro de la ligne excplorée 
(témoin du bon fonctionnement du programme). 
NOTA : la routine LM “double hauteur” a été emprun- 
tée au programme Database du manuel. 


COMMANDES 

— MENUS : flèches pour choisir, ENTER ou RETURN pour 
valider. 

- Entrée du nom du programme à explorer : 

- tous les caractères du clavier (à refaire si le pro- 
gramme considère le nom de fichier comme Incor- 
rect, on ne trouve pas le fichier) 

- corrections : DEL 

- validation : ENTER ou RETURN. 

- Entrée de l'expression à rechercher : Idem. 


LD HRARAAAANENENAEX )LA 
28 ‘x * >)LB 
38 x EXPLORER.BAS * LC 
4g ‘x * >LD 
5ÿ ’*x G. DUBUS x LE 
69 ‘x * >LF 
19 "x Janvier 1999 x LG 
84 'x * >LH 
L''MREXTEPEELTETFIÉ II) >LJ 
189 SYMBOL AFTER 9:0N BREAK CONT > AP 


119 DEFINT a-z:fpr=f:rient="Je n'ai rien trouv{":del$=C DRX 
HR$(B)+CHR$(16):DEF FNx=-(1+fcad/2)x(i:9)-mg#(i39) :DEF 
FNy=-2x4(i:9)-(1+fcad/2-(ftype(1)+ftitre+(i-1)#(1-(ftyp 
eQ1)))4(1)9):DEF FNsb$(z)=MID$(STR$(z),2) 

128 DIM 1$(7),com(8),x$(6) >TP 
139 DATA "ON ", "GOTO ","GOSUB ","RESTORE ", "THEN ","ELS )JF 
E sus 

149 FOR i=9 TO 6:READ x$(i):NEXT i:0N ERROR GOTO 1688 
158 DATA 13,249,241,242,243,16,127,5 


JVR 
>BK 
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169 FOR i:1 TO 8:READ conli):NEXT i:GOTO 668 


179 DATA 135,131, 139,133, 138, 141, 149, 142 
189 DATA 159,154,156,149,149,147,154, 153 
199 DATA 259,251,252,253,219, 254,229, 255 
289 DATA 229,234, 235,236, 237,239, 248,249 
219 DATA 221,222, 223,224,225, 226, 227, 228 


229 ERASE 1$:DIM 1$(7):READ f,11,ftype,fcad,ftitre,cad, 
cg,cd,ch,cb,ng,a,b,c:IF ftitre=3 THEN READ 1$(9) 
239 IF ftype:4 THEN READ cx,cy,lc,1$(1):G0T0 259 


248 FOR i=1 TO Il:READ I$Ci):NEXT i 


259 PAPER#f,a:PEN#f,b:WINDOW#f,cg,cd,ch,cb:CLSHf:1F fca 


d=2 THEN GOSUB 279 
269 GOSUB 398:RETURN 
279 bh=cb-ch-1:gd=cd-cg-1 


289 IF ftitre=ÿ THEN hb=bh:LOCATE#f, 1,1:GOSUB 399:RETUR 


N 


298 IF ftitre=3 THEN hb=1:LOCATE#f, 1, L:GOSUB 389:hb=bh- 


3:GOSUB 399 :RETURN 


389 ON cad GOSUB 349,359,368,379, 388 :READ cl,c2,c3,c4,c 


5,c6,c7,c8 


319 PRINTH£,CHR$(c1) ; STRINGS (gd, c2) ;CHR$(c3) ; 
329 FOR i=1 TO hb:PRINT#f,CHR$(c4);STRING$ (gd, CHR$(9)); 


CHR$(cH);:NEXT i 


338 PRINT#f,CHR$ (C6) ; STRINGS (gd, c7) ;CHR$(c8) ; : RETURN 


349 RESTORE 179:RETURN 

359 RESTORE 189:RETURN 

368 RESTORE 199:RETURN 

379 RESTORE 299:RETURN 

388 RESTORE 219:RETURN 

398 PENXf,c:GOSUB 49#:RETURN 

499 IF ftitre=3 THEN i=9:GOSUB 44ÿ 


419 FOR i=i TO 11:LOCATEHT, FNx,FNy:PRINTH#f,L$(i);:NEXT 


i 
429 IF ftype=3 THEN GOSUB 459 
439 RETURN 


449 ux=1+(cd-cg+ti-LENCI$(i)))\2:LOCATENf, xx, FNy:PRINT#F 


» 1$(i) 3; RETURN 


458 iop=1:gxv=16*(cgtag)-38:gyv=16x(25-ch-fcad/2-ftitre 


)+36 


469 GOSUB 598:r=9:MHILE r<>13:GOSUB 649 :GOSUB 548 
479 FOR j=1 TO 5:1F r<ocom(j) THEN NEXT j 


489 ON j GOSUB 639,609,619,698,619,629 
498 GOSUB S89:WEND:choix=iop:RETURN 


589 long=12#LENC1$Ciop))216:MOVE gxv, gyv-32riop, c, 1 :DRA 
UR long, F:DRAUR 9,-26:DRAUR - long, G:DRAUR 9,26 :RETURN 


529 rept="*:GOSUB 588 





)TY 
>GT 
DE 
>GM 
>GK 


RG 
?PK 


538 GOSUB 648:1F r=127 THEN IF POSCHf)=cx THEN PRINT CH DJN 


R$(7); ELSE PRINT, CHR$(24);del$;CHR$ (24); :r$="":GOTO 


579 


548 IF r=13 THEN IF rep$="" THEN PRINT CHR$(7); :RETURN 


ELSE GOSUB 589:RETURN 


559 IF r<32 OR r>125 THEN PRINT CHR$(7);:GOT0 539 
569 IF POS(Hf)=cx+lc THEN PRINT CHR$(7); :GOTO 538 
579 rep$=LEFT$(rep$,POSCHf)-cx)+r$:PRINT#f,CHRS(24);r$; 


CHR$ (24); :GOTO 539 


589 LOCATERf,cx, cy:PRINTHf,CHR$(24) ;SPACES (1 c) ;STRINGS( 
le, 8) ;rep$ ; STRING$ (LENCrep$),8) ; CHR$ (24) ; : RETURN 


699 iop=iop-11#(iop=1)-1:RETURN )ER 


618 iop=ioptiopt(iop=11)+1:RETURN )EG 
628 PRINT CHR$(7); HN 
639 RETURN ZE 


649 CLEAR INPUT:r$="":VHILE r$="":r$=INKEYS:WEND:r=ASC( RE 
r$):RETURN 

659 ? ------------.._ )TB 
669 MODE 1:BORDER 9:INK 9,8:INK {,8:FOR i=1 TO 299:PLOT TH 
RNDX649,RNDx498, L:NEXT i:INK 1,13 

679 INK 2,9,9:1INK 3,6:PAPER 2:PEN 3 BU 

689 RESTORE 176:double$="":FOR i=ÿ TO 84:READ j:doubie >PF 
$=double$+CHR$(j):NEXT i :double!=PEEK(@double$+1)+2564P 

EEK (@doubl e$+2) 

699 *------------- )TF 
188 text$="EXPLORER":LOCATE 17,5:GOSUB 1728:LOCATE 9,9: >AL 

PAPER S3:PEN 2:PRINT"(C) SOFTJOB & AMSTAR-CPC":LOCATE 17 
,14:PAPER Q:PEN 3:PRINT"G. DUBUS" 

719 LOCATE 1,29:PAPER 3:PEN S:PRINT" EXPLORER ne peut t >ME 
ravailler que sur des programnes BASIC sauvegard{s en À 

SCIE “:LOCATE 19,25:PEN {:PRINT"Appuyez sur une touche 
":CALL &BB96 


729 = >RK 
739 SYNBOL AFTER 219 DPF 
749 SYMBOL 219,38, 38, 38, 38, 38, 38, 38, 38 DER 
759 SYNBOL 229,9,9,255,8,8,255,255,8 ET 
760 SYMBOL 221,8,55, 72, 72,55, 72, 72, 72 >DB 
778 SYNBOL 222,9, 219, 36,36, 219,8,0,8 ED 
789 SYMBOL 223,8, 236, 18, 18, 236, 18, 18, 18 EX 
799 SYHBOL 224, 72, 72, 48, 72, 72,48, 72, 72 EG 
899 SYMBOL 225, 18, 18, 12, 18, 18, 12, 18, 18 >DN 
819 SYHBOL 226, 72, 72, 72,55, 72, 72,55, >DC 
829 SYMBOL 227,8,8,0, 219,36, 36,219, 8 BE 
839 SYMBOL 228, 18, 18, 18, 236, 18, 18, 236,9 EN 
849 SYMBOL 229, 8, 127,64, 73, 66, 72, 72,88 >DH 
859 SYNBOL 234,9,255,9, 153, 192,0,0,9 BL 
869 SYMBOL 235,9, 254, 2, 146, 196, 18, 18, 19 )EM 
879 SYNBOL 236, 89, 72, 72,88, 89, 72, 72,89 >DG 
889 SYMBOL 237, 19,18, 18, 19, 19, 18,18, 19 >DD 
899 SYMBOL 239,88, 72, 72,686, 73,64, 127,8 DEF 
999 SYMBOL 248,8,9,9,192, 153,8, 255,8 BK 

918 SYNBOL 249, 19, 18, 18,196, 146,2, 254,9 EX 
926 SYMBOL 259,8,63, 127,96, 96, 193, LAG, 108 >GU 
939 SYMBOL 251,9,255,255,8,9, 255,0,9 EX 
949 SYMBOL 252,8, 252, 254,6, 6, 239, 38, 38 DT 
959 SYMBOL 253, 109, 109, 199, 199, 199, 199, 199, 108 >LQ 
969 SYMBOL 254, 199, 198, 193, 96,96, 127,63, 0 >GD 
979 SYMBOL 255,38, 38,239,6,6, 254, 252, 0 >DZ 
9Bÿ ?------.. TH 


998 MODE 1:1INK 8,8:INK 1,1:INK 2,11:INK 3,8:WINDOW#7,9, DUD 
33,23,24:PENK7,2 


1998 DATA 1,1,4,2,8,1,5,35,19,15,3,1,2,3 )EG 
1918 DATA 12,4,8,"NOM DU PROGRAMME A EXPLORER" RP 
1929 RESTORE 1989:CLSH7:GOSUB 228 >BP 


1938 GOSUB 524:non$-UPPER$(rep#):file$=non$+",  " VC 
1848 PRINT CHR$(21);:OPENIN file$:LINE INPUT#O, I$:PRINT AK 
CHR$ (6) ; :CLOSEIN 

1859 MODE 1:INK 9,B:INK 1,15:INK 2,9:INK 3,4 )JB 
1968 DATA 1,7,3,2,3,3,7,34,3,22,8,1,2,3 >DN 
1978 DATA "VOTRE CHOIX :","Les GOTO et ON...GOTO","Les >MB 


GOSUB et ON...GOSUB","Les RESTORE","Les RSX","Un mot-cl 

{ou expression", "Un autre progranne","Quitter" 

1988 RESTORE 1969:G0SUB 228:1F choix=7 THEN CALL ÿ ELSE 
IF choix=6 THEN fpr=8:G0T0 999 ELSE siop=choix:1F choi 
x=5 THEN GOSUB 1188 

1899 MODE 1:INK 1,9:1INK 2,2:INK 3,4 

1198 DATA 1,2,3,2,3,5,9,31,5,14,3,1,2,3 

1118 DATA "EDITION DES RESULTATS", "A l’{cran","A l'iapr 
imante" 

1129 RESTORE 1189:GO0SUB 228:n=-(choix=1)-(choix=2)#8:1F 
n={ THEN 1178 

1139 DATA 2,2,1,2,9,2,3,37,18,21,2,8,3,2 

1149 DATA "Si l'inprimante est prete @ fonc-"," tionner 
, appuyez sur une touche" 

1159 RESTORE 1134:GO0SUB 229:CALL &BB96:1F fpr=9 THEN WI 

DTH 255:PRINTHn, CHR$ (27) ;CHR$(64) ;CHR$(27) ;CHRS (188) ;CH 

R$(5);CHR$(27) ; CHR (97) ; CHRS (1) ;CHR$ (27) ;CHRS (45) ; CHRS( 
L);CHR$ (27); CHR$ (69) ;CHR$ (27); CHR$ (71); 

1168 IF fpr=8 THEN PRINT#n, CHR$(14) ; "EXPLORATION DE "in 

on$ ;". BAS" ;CHR$ (29) ;CHR$(27) ;CHR$(97) ;CHR$ (8) ; CHR$ (27); 
CHR$ (45) ;CHR$ (8) ;CHR$ (27) ;CHR$ (78) ;CHR$ (27) ;CHR$ (72) ;CH 
R$(19):fpr=1 

1178 GOSUB 127S:PRINTAn:PRINTHn:CLSH2:PRINTH2, "Termin{. 
Appuyez sur une touche"; :CALL &BB96:G0TO 1959 

1188 MODE 1:1INK 1,4:INK 2,17: INK 3,18 

1198 DATA 1,3,1,2,9,2,4,36,16,28,2,9,1,2 

1299 DATA " ATTENTION @ l’{criture !","Le programme n 
e confond pas les","majuscules et les minuscules" 
1218 RESTORE 1199:GOSUB 228 

1228 DATA 2,1,4,2,9,4,4,37,5,19,3,1,2,3 

1238 DATA 3,4,38,"  MOT-CLE OU EXPRESSION ?" 

1249 RESTORE 1229:G0SUB 229:rep$="" 

1258 GOSUB 528:x$=rep$ :RETURN 

1279 MODE 2:NINDOWH1,1,88,2,25:WINDOW#2,1,89,1,1:INK 8, 
13: INK 1,9:PAPER#1, S:PEN#1, L:PAPER#2, 1 :PENH2, 8:CLS#1:CL 

S#2 

1288 IF siop=5 THEN PRINTin, x$ 

1299 OPENIN file$:fg=9:WHILE NOT EOF:LINE INPUT#9, 1$:nm 
1$="":chaine$="":nl=VAL(1S$) :PRINT#2, USING"####H" nl; :PR 
INT#2,CHR$(13);:f1-8 

1389 ON siop GOSUB 1349, 1348, 1438, 1469, 1519:1F f1 THEN 
IF siop{5 THEN PRINT#n,nml$;" ";chaine$ ELSE PRINTHn, ch 

aine$ 

1319 WEND:IF fg=9 THEN PRINT#n,rien$ 

1328 CLOSEIN:RETURN 

1348 x$=x$(siop):b=1:p=1:WHILE b<LEN(I$):a=INSTR(D, 1$, x 

$):1F a=ÿ THEN IF siop=2 THEN RETURN ELSE GOSUB 1629:RE 

TURN 

1359 fe=fgtiifl=flt{tiF f1=1 THEN nal$=FNsb$(nl)+" " 
1369 b=atLEN(x$):1F MID$(1$,b,1)="9" THEN chaine$=chain 

e$+MID$(1$,a,b-ati)+":":GOSUB 1549:GOT0 1418 

1378 11$=MID$(1$,b):nlap=VAL(I1$):1F nlap)f THEN nlap$: 

FNsb$(nlap):b=btLEN(nlap$):chaine$=chaine$+MID$(1$,a,b- 

a) 

1389 IF MID$(1$,b,1)@"," THEN chaine$:chaine$+":":G0SU 
B 1548:GOTO 1419 

1399 c=INSTR(b,1$,":"):1F © THEN suite$=MID$(1$,b,c-b+1 





>TP 


) ELSE suite$=MID$(1$,b)+":" 


1499 chaine$=chaine$+suites:GOSUB 1549 >GF 
1419 WEND:RETURN >MA 
142ÿ '-------- >XK 


1439 b=1:x$=x$(3):WHILE bCLEN(I$):a=INSTR(D, 1$,x$):IF a >TH 
=ÿ THEN RETURN 

1448 GOSUB 1579:WEND:RETURN 

1469 b=1:x$=x$(6):WHILE b<LENC(I$):a=INSTR(, 1$,x$):1F a 
=ÿ THEN RETURN 

1479 fg=fgtiifl=flti:IF f1=1 THEN nal$=FNsb$(nl)+" " 
1488 b=ati:c=INSTR(b, 1$,":"):1F © THEN chaine$=chaine$+ 
MID$(1$,a,c-ati) ELSE chaine$=chaine$+MID$(1$,a) 

1498 WEND:RETURN 

1518 b={:WHILE bCLEN(I$):a=INSTR(D, 1$,x$):IF a=9 THEN R 
ETURN 

1529 fg=fgtl:fl=flti:chainet=chaine$+STR$(nl):b=atLEN(x 
$) :WEND: RETURN 

1548 x$=x$(8):d=INSTR(p,1$, x$):IF d>a OR d=ÿ THEN RETUR 
N 


>XE 
(0 
>TP 


NE 
UU 


»NJ 
»XJ 
GE 


1558 chaine$=MID$(1$,d,a-d)+chaine$:p=b:RETURN JR 
1568 *---------. NE 
1579 b=atLEN(x$):11$=MID$(1$,b):nlap=VAL(11$) >PH 


1588 IF nlap THEN fg=fg+t:fl=fl+{:nlap$=FNsb$(nlap):b=b 
+LEN(nlap$):chaine$=chaine$+MID$(1$,a,b-a)+":" 


1599 IF f121 THEN nal$=FNsb$(nl)+" " CB 
1699 RETURN FA 
1619 YA 


1629 b=1:x$=x$(4):MHILE béLENCI$):a=INSTR(D, 1$,x$):1F a 
=ÿ THEN IF b){ THEN GOSUB 1659:RETURN ELSE RETURN 

1638 GOSUB 157ÿ:WEND:RETURN 

1658 x$=x$(5):WHILE b<LEN(I$):a=INSTR(D,1$,x$):1F a=ÿ T 
HEN RETURN 

1668 GOSUB 1579:WEND:RETURN 

1689 PRINT CHR$(6);:CLOSEIN:1F DERR:146 THEN LOCATE#7, 3 
,1:PRINT#?7, "Fichier introuvable";" Appuyez sur une touc 
he";:CALL &BBÿ6:non$="":RESUME 1929 

1699 IF DERR=144 THEN LOCATEH?,1,1:PRINT47, "Non de fich 
ier incorrect";" Appuyez sur une touche"; :CALL &BB96:no 
n$="":RESUME 1929 


1799 ON ERROR GOTO ÿ >NH 
FRIDPESEEES-Ssesessses )YB 
1729 FOR i=1 TO LEN(text#) >UG 
1739 POKE double!+1, ASC(MID$(text$,i,1)) JC 
1749 CALL double! :NEXT i:RETURN )BL 
I ÉT RER CREER ESS NYF 
1768 DATA &3e,&6e, kod, &a5, LBB, &16,&FE, &3E, &19 KG 
1776 DATA &CD, &5A, &BB, &7A, RCD, &SA, BB, &AE, &94,&7E QG 
1788 DATA &CD,&5A, LBB, &CD, LSA, RBB, 423, &OD, &28, &F5 PR 
1798 DATA &14,429,4E7,&3E, RFE, 8CD, &5A, &BB, &SE, &fA >PJ 
1899 DATA &CD,&5A, KBB, &SE, 488, CD, &5A, KBB, &3E, &FF >QA 
1819 DATA &CD,&5A, &BB, &3E, &OB, LCD, &5A, &BB, &C9, &5A AT 
1829 DATA &BB,U3E, OA, &CD, &5A, RBB, L3E, 498, &CD, &5A >PG 
1835 DATA &BB,&3E, &FF, CD, L5A, 4BB, &3E, &9B, LCD, &5A >QP 
1844 DATA &BB, &C9 )LE « 


33 


Lofs de jeux divers cassettes 
Par 5 jeux 40 F le lot de cassettes 
Par 10 jeux 60 F le lot de cassettes 


LOTS d'anciens numéros 


Une affaire pour votre Amstrad ! 
des dizaines d'articles et de programmes 
À 12 numéros de CPC années 85 à 90. 
DAY Pa V4 NN) 12 numéros d'Amstar années 87 à 90. 


ATTE NON 55 Francs + 30 francs de port. 


IEXefelKe "D los en solde. Les jeux ne sont ni repris ni échangés. 
|Mreike (Hal pas demander au téléphone la liste de ces titres. 


ge 
RNESAI 
DÉISTiZE 











I 
I 
I 
I 
= 


y Bon de commande Nom: Prénom: 
| Je commande Adresse : 

1 ©Q5 jeux K7 pour 40 F Code postal : Ville: 

l ©10jeux K7 pour 60 F Date: Signature 






LE T2 numéros de CPC pour 55F+30Fport = ÉÉÉrneai 
Q 12 numéros d’Amstar pour 55 F + 30F port | | 
e joins mon règlement chèque bancaire Q 


I chèque postal Q mandat Q Date d'expiration |, | 1 | Signature 


à Retournez ce coupon, accompagné de votre chèque libellé à l’ordre des Editions SORACOM - La Haie de Pan - 35170 BRUZ 


PETITES ANNONC 








a Vds tbe 6128 coul. + Okimate + 2160 + Tuner + 
Périh. + livres + rev. + DK progr. + jeux + Weka. 
Fromentin. Tél. 22.93.77.11. 





mVds CPC 464 monochrome (tbe) + joystick + 2 
jeux originaux + manuel : 700 F. Tél. 45.28.69.09, 
après 19h. 





#Exceptionnel | Vds plus de 60 originaux K7, disk 
entre 30 F et 60 F. Liste 2,30 F à M. Talenton, 40, 
Molkenbronn, 67380 Lingolsheim. 





mVds CPC 6128 mono + adapt. couleur + joystick 
+ souris + nbreux jeux + livres + revues, le tout : 
2500 F RCS. Tél. 45.32.35.67. 





mVds Sega Master System + branchement + 2 
manettes + 8 jeux (Dick Tracy, Time Soldiers, etc.), 
valeur : 2712F, vendu : 1500 F. Tél. 95.57.89.05. 





mRecherche Micro Application Tomes 5 à 9 et 
technique de programmation et jeux en assem- 
bleur. Tél. 97.25.33.18. 





mVds CPC 6128 coul. + pistolet + 100 disc pleins 
+ lecteur 3,5”, 880 ko + téléch. + joyst. : 7500 F si 
total. Tél. 70.45.08.72. 





mExcept ! Vds 6128 coul. + DMP 2000 + 40 D7 
(OCP, JX...) + nbr. revues et livres. Px : 3000 F !!! 
Tél. 99.63.70.69, Stanislas (soir). 








a Cherche livre sur logo (Sybex) achat ou consul- 
tation. Tél. 97.63.70.92. Marionneau J., 17, rue de 
l'Océan, 56000 Vannes. 





mPour revevoir le fanzine Micro-J, envoyez 2 tim- 
bres à 2,30 à François Gardien, 8, rue des Aca- 
cias, St Rogatien, 17220 La Jarrie. 





mVds console Nintendo + pistolet + robot + 14 K7 
(Skate or die, Batman, Blade of Steel...) : 4000 F. 
Tél. 78.20.68.52. 





mVds console GX4000 + 25X (Burning Rubber, 
Switch Blade) + garantie. Valeur : 1280 F, vendu : 
850 F. Tél. 47.99.97.23. 





mVds CPC 464 couleur, 2 manettes + tuner pour 
TV, prise Péritel pour C + 50 jeux : 3500 F. Tél. 
33.24.41.47, après 19h. 





aVds Amstrad CPC 6128 coul. + accessoires, lo- 
giciels, livres, revues, liste sur demande. Lamer, 
46.42.79.30. 





m Urgent ! Vds Amstrad CPC 6128 + moniteur 
couleur + 32 jeux + 2 copieurs + des prises + 
manette Cobra. Tél. 35.09.13.61. Prix : 4500 F. 





mVds Amstrad PC2086, écran coul. VGA 14”, lec- 
teur 3” 1/2 et 5” 1/4, disque dur 20 Mo, souris, 
logiciels, excellent état : 7000 F. Tél. 34.10.26.34. 


a Vds Amstrad 6128 plus, neuf, 1991 + 4 jeux + 
nbx livres. Prix : 3600 F. Tél. 45.91.13.15. 


m Vds prog. sur vecteurs RAM tout assembleur 
50 F disq. fournie. Giraudo G., BT B l'Oasis, qut 
Crestade, 83400 Hyeres. 





#Cherche dépt 65 32 DD-1 + CP/M + disc. Faire 
offre à Esclarmonde Robert, 65240 Arreau (répon- 
se assurée), urgent. 





mVds CPC 6128 coul. + DMP 2160 + bureau + 
souris + 80 jeux + joys. : 4500 F. Tél. 39.74.89.95, 
après 18h. 





aVds CPC 464 couleur partie son à réparer : 500 F. 
Tél. 83.81.23.08, département 54. 





mUrgent rech. logiciels “Speedy Wonder” et “3D 
Megacode”. Ecrire à Jolly JF, 2 all. des Tilleuls, 
72300 Sable. 





mRecherche programmes éducatifs classe 5ème, 
Amstrad 6128 disk. Maquat Claude, Cidex 19, 
16290 Hiersac. Tél. 45.96.95.84. 





mVds CPC 6128 nouveau modèle + imprimante 
avec nb prog. le tout a 5 mois, urgent : 6500 F. 
Tél. 93.86.62.12, soir. 





# Cherche logithèque Amstrad éditée en 5” 1/4, 
possibilités d'arrangements. Tél. 81.94.23.02, 
après 19 h SVP. 





aVds Amstrad 6128 coul. + manuel + disk de base 
+ jeux + boîtier rangement : 3000 F à débattre. 
Tél. 90.95.43.78, heures repas. 






7: \\NTelNte = A et 


LES PETITES ANNONCES ET LES MESSAGES 
Attention, vos PA seront mises sur le serveur avant la parution du joumal 


aVds CPC 464, écran monochrome avec extension 
Vortex 512 K + DD1 + FD1 + document : Tél. 
91.55.50.05. 





[T1] 


ME 





LE 








CEE 


LE 
RE 





RER 


Sen 


LL 


FFE 


FRS 





Mettre ce coupon + 4 timbres à 2,30 F dans une enveloppe. 
Adresser le tout à : SORACOM - La Hale de Pan - 35170 BRUZ 


CPC 


Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 
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ur . Pa cd 
? D — 


ECRITURE ARABE 


Le point le plus faible de ce 
programme concerne l'impression. 
Celle-ci peut être améliorée 
nettement grâce aux modifications 
ci-dessous. 


complémentaire n'est pas de mol : Il est l'adap- 
tation de l'utilitaire Hardcopy, publié dans le nu- 
méro hors-série 5 d'Am-Mag (Mars-Avril 88) 


L a vérité m'oblige à préciser que le programme 


1. Modifications du programme principal GERBERT 


Supprimer les lignes 90-390 


54 
LOAD"arabe1.bin",#3000:LOAD'arabe?.bin",&3410:LOAD“arabez.bin" ,&A000 
725 IF a=%5 AND f1=0 THEN GOSUB 1470:G60T0 580 


1450 ‘’ Impression 
a : 
1470 FOKE 8459C,16 


1480 POKE &4S5A0,ecr-256*INT (ecr/256):POKE %A4SA1,INT (ecr/256) 
1490 CALL &4700:CALL 8A06C: RETURN 


2. Taper et sauver le fichier ARABE3.PRG qui génère le 
fichier ARABE3.BIN 


3. Modifications facultatives (amélioration du graphis- 
me de la lettre ALIF en position Initiale et isolée : 

Dans le fichier ARABET.PRG 

1250 DATA 66,08,08G.808,15,18,158, 
18,18,16,10,00,464,60.,06,6@.169 


Dans le fichier ARABE2.PRG 
650 DATA A0.00.00.08.18,18,18, 
18,16,16,10,00.00,00,00,00,168 


Générez ensuite les nouveaux fichiers ARABET.BIN et 
ARABE2.BIN. 





























URRS LLELEE LEE EEE 

28 "+ # 

38 * # ECRITURE ARABE # 

+ # 

CYR LIELTELEESTESEEEE 

68 ? 

79 MODE 2:ad=&A99ÿ:nl=119 

75 FOR a=1 TO 87:b=ÿ:FOR c=1 TO 16:READ a$ 

89 POKE ad, VAL("&"+a$):b=b+PEEK(ad) :ad=adt{ 

85 NEXT:READ e:1F eCb THEN 95 

9ÿ nl=nl+19:NEXT:SAVE"arabe3.bin",b, &A999, &SGF : CLS : END 

95 CLS:PRINT"ligne"nl;" incorrecte" :END 

199 ? 

195 * COPIE IMPRIMANTE 

119 DATA 96,A2,9B, A2, AS, A2, A5, A2, AA, A2, AF, A2, B4, A2, B9, A2, 2636 
129 DATA BE, A2,C3,A2,C8, A2, CD, A2,D2,A2,D7, A2, DC, A2, DF, A2, 2954 
139 DATA CD,A1,D2,A1,D7,A1,DA, A1, 2A, 45,93, A5, DC, A4,B5, A4, 2596 
149 DATA 8E,A4,67,A4,49, 44,19, A4,F2, A3,CB, A3, A4, A3, 7D, A3, 2376 
159 DATA 56,A3,2F,A3,98,A3,E1, A2, 1B, 2,96, A2,F1,A1,DC, A1,2157 
169 DATA 9B,13,1B,93,19,92,9A,1A,12,1F,9F,17,97,0D,9E, 99,244 

179 DATA 86,95,1D,15,1E,16,9C,94,18,1C, 14,99, 3E, 99, 32,68, 429 

189 DATA A9,FD,21,28, A8, DD, 21,59, AG, 0E, 19,21,E6,B7, 06, 19, 1638 
199 DATA 7E,DD,BE, 89,28, 90,23, 19,F7,3E,99,B1,28,59, DD, 23, 1512 
299 DATA C3, 7B,A8,E5,21,89, A6, 78,2F,C6,11,97,6F,22, A2, A9, 1756 
219 DATA ED,5B,11,A1,FD, 22, A9, A9, 21,69, A9, C5, ED, A9, ED, AB, 2396 
229 DATA C1,FD,23,FD,23,78,D6,9D,FA,E2, A9, 21,20, A9, 78,2F, 2144 
239 DATA C6,11,97,85,6F,22, CA, A9, ED, 5B, 99, A9, 21,46, AD, 3A, 1673 
249 DATA 6B, A9,97,85,6F,3A,6B, A9,3C, 32,6B, A9, C5, ED, A9, ED, 2951 
259 DATA A8,C1,8D,E1,C3, 86, A9, 99, CD, BA, BB, CD,E7,BB,32,B4,2597 
269 DATA Af,CD,5C,A1,21,8F,91,22,B1,A1,11, 99,09, dE, 26,32, 1393 
279 DATA B3,A1,CD,6C,A1,3A,B3,A1,47,CD, 11, BC, DA, BA, A2, CA, 2413 
289 DATA C1,A1,9E,99,E5,D5,C5,CD,F#,BB,C1,D1,21,B9, A1,BE, 261 
298 DATA E1,37,29,81,A7,CB,11,2B, 19,EA, CD, A4, A1, 79,CD,9B, 2994 
389 DATA A1,13,E5,21, 7C,82,37,ED,52,E1,38,95,2A,B1, A1, 18, 1632 
319 DATA C4,23,7C,B5,C8,28B, 11,89, 99,22,B1,A1,SE, 99, BD, 29, 1454 
328 DATA B1,7C,B4,29, AD, 3E,94,32,B3, A1, 18, A6,3E, 1B,CD,9B, 1781 
338 DATA A1,3E,33,CD,9B, A1,3E, 12,CD,9B,A1,C9,E5,3E, 42, CD, 2159 
348 DATA ÎE,BB,E1,28,92,E1,C9,3E, 9D,CD,9B, A1, 3E, A, CD, JB, 1938 
359 DATA A1,3E,1B,CD,9B, A1,3E, 2A,CD,9B,A1,3E,44,CD,9B, A1, 1983 
369 DATA 3E, 7C,CD,9B,A1,3E,92,CD,9B, A1, C9, CD, 2E, BD, 38,FB, 2249 
378 DATA CD, 2B,BD,C9,3A,B3,A1,FE,96,C8,AF,CB,11,CB,11,C9,2312 
388 DATA 99,00,09,00,09,00,09,00,09,2B,2B,05,19,93,C3,39, 353 

398 DATA A2,E5,D5,C5,CD,F#,BB,C1,D1,FE,99,E1,CA, 1B, A2, D6, 2919 
498 DATA 91,CA,06,A2,D6,91,CA,F1,A1,C3,DC, A1, 3A,B5, A1,CD, 2371 
419 DATA 5C,A2,32,B5, A1, 3A,B6, A1, CD, 5C, 42, 32,B6, A1,C3,B9, 2279 
428 DATA Af,3A,B5,A1,CD, 4A, A2, 32,85, A1, 3A, B6, A1, CD, 53, A2, 2245 
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439 DATA 32,B6,A1,C3,89, A1, 3, B5, A1, CD, 4A, A2, 32,85, A1, 3A, 2225 
4uÿ DATA BG, A1,CD, 42, A2, 32,B6,A1,C3,B9,A1, 34, B5, A1, CD, 42, 2381 
459 DATA A2, 32,85, 41,34, B6, A1, CD, 42, 42, 32,86, A1,C3,B9, A1, 2322 
469 DATA CD, 51,45, CD, 5D,A5, 3€, 09, 32,5, A1, 32, B6, A1, 13, C3, 1975 
478 DATA 31, A1,4F,B7,CB,11,CB, 11, 79,C9,4F, 37,CB, 11,B7, CB, 1974 
489 DATA 11,79,C9,4F,B7,CB, 11, 37,CB, 11, 79, C9, 4F, 37, CB, 11, 1772 
498 DATA 37,CB, 11, 79,C0,2B, 2B,05,19,29,CD, 51,45, CD, 5D, A5, 1658 
599 DATA CD, 62, A5, CD, 67,45, 3E, 09, 32,85, A1, 32, BG, A1, 32, 87, 2921 
519 DATA A1,32,B8,41,13,13,13,C3,31,A1,E5,D5,C5, CD, FE, BB, 2289 
529 DATA C1,D1,FE, 09,Et, CA, 2A, A5,D6,01,CA, 93,45, D6, #1, CA, 2292 
536 DATA DC, A4,D6,91, CA, B5, 44, D6, 91, CA, 8E, A4,D6,91,CA,67, 2389 
549 DATA A4,D6,01,CA, 49, A4,D6,01,CA, 19, A4, D6, #1, CA, F2, A3, 2237 
559 DATA D6,01,CA,CB, A3,D6, 41, CA, A4, A3, D6, 8, CA, 7D, A3, D6, 2446 
569 DATA 01, CA,56,A3,D6,01,CA, 2F,A3,D6,1, CA, DB, A3, C3, E1, 2987 
579 DATA A2, 34,85, A1,CD,5C, 42, 32, B5, A1, SA, BG, A1,CD,5C, A2, 2273 
589 DATA 32, B6, A1, 3A,B7,A1,CD, 50, A2, 32,87, A1, 3A, BB, A1, CD, 2256 
599 DATA 5C, A2, 32,B8,A1,C3,65, 42, 3A,B5, 41, CD, 5C, A2, 32, 5, 2197 
689 DATA A1, 3A,B6,A1,CD,5C, A2, 32,B6, A1, 3A,BT,A1, CD, 4A, A2, 2257 
619 DATA 32, B7, A1, 34, BG, A, CD, 50, 42, 32, B8, A1,C3,65, A2, 3A, 2167 
629 DATA B5, A1,CD,53,A2, 32,85, A1, 3A, BG, A1, CD, 50, A2, 32, BG, 2276 
638 DATA A1,34,B7,A1,CD,5C, 42, 32,87, A1, 34,6, A1, CD, 44, A2, 2268 
64ÿ DATA 32,B8,A1,C3,65, A2, 3A,B5, A1,CD,5C, A2, 32, B5, A1, 34, 2162 
658 DATA BG, A1,CD,5C, A2, 32,B6, A1, 3, B7, A1, CD, 42, A2, 32, B7, 2263 
664 DATA A1, 3A,BB, A1, CD, 5C, A2, 32,B8, A1,C3,65, A2, 34,85, A1, 2276 
679 DATA CD, 4A, A2, 32,5, A1, 34, BG, At, CD, 53, A2, 32, 6, A1, 3A, 2135 
689 DATA B7, A1,CD,5C, A2, 32,B7, A1, 3A,B6, A1, CD, 4, A2, 32, BB, 2275 
698 DATA A1,C3,65, A2, 34,85, A1, CD, 42, A2, 32,85, A1, 3A, BG, A1, 2245 
788 DATA CD, 5C, A2, 32,B6, A1, 34, B7,A1,CD, 5C, A2, 32, BT, A1, 34, 2165 
719 DATA BB, A1,CD, 4A, A2, 32, BB, A1,C3,65, A2, 3A,B5, At, CD, 42,2318 
720 DATA A2, 32,85, A1,34,B6, A1, CD, 50, A2, 32, BG, At, 34, B7, A1, 2209 




















INSTANT ALARM 
Une merveille de la technologie 


porte INSTANTANEMENT la sirène 
“ D’instant alarm" retentit à 110 
décibels avec signaux lumineux. 


deux piles de 1,5 V pour 
la lampe ( non fournis ) 
Prix de vente public 249 FF 


Prix PROMO 169 FF 


+ 20 F port 
Réf : SLODD1 





OFFRE EXCEPTIONNELLE 


Un intrus touche la poignée de votre 


Fonctionne avec une pile 9 V pour l’alarme et 


Utilisez le bon de commande SORACOM 


739 DATA CD, 50, A2, 32, B7, A1, 34,B8, A1 ,CD, 42, A2, 32,B8, A1,C3, 2279 
749 DATA 65, A2, 3A,B5, A1, CD,53, 2, 32,85, A1, 34,6, A1, CD, 53, 2194 
759 DATA A2, 32,86, A1, 34,87, A1,CD,53, A2, 32, B7, A1, 3A,B8, A1, 2294 
769 DATA CD, 53, A2, 32,88, A1,C3,65, A2, 3A,B5, A1, CD, A, A2, 39, 2194 
776 DATA B5, A1,34,B6,A1,CD, 53, 42, 32,B6, A1, 3A,B7, A1, CD, 4A, 2267 
789 DATA 42,32, B7, A1,3A,B8,At,CD,53, A2, 32,B8,A1,C3,65, A2, 2262 
799 DATA 34,85, A1, CD, 42, A2, 32, B5, A1, 3, B6, A1, CD, 4A, A2, 39, 2117 
899 DATA B6, A1, 34,B7, A1, CD,5C, A2, 32,87, A1, 34, BG, A1, CD, 42, 2272 
819 DATA A2, 32,BB, A1,03,65, 42, 3A,B5, A1, CD, 53, 42, 32,85, A1, 2257 
829 DATA 34, B6, At, CD, 44, A2, 32,86, A1, 34,7, A1, CD, 53, A2, 32, 2137 
839 DATA BT, A1, 34, B6, A1, CD, 42, A2, 32,B8,A1,C3,65, A2, 3A, B5, 2272 
849 DATA A1,CD,53, A2, 32,85, A1, 34,6, A1, CD, 42, A2, 32, B6, A1, 2238 
859 DATA 34,87, A1,CD,53, 42, 32, B7, A1, 34, B8, A1, CD, 53, A2, 32, 2149 
869 DATA B8,A1,C3,65, 2, 3A,B5, A1, CD, 42, A2, 32, B5, A1, 3A, B6, 2268 
879 DATA A, CD, 4A, A2, 32,B6, A1, 34, B7, A1, CD, 53, A2,32,B7, A1, 2241 
884 DATA 3A, B8, At, CD, 42, A2, 32,86, A1,C3,65, A2, 34, B5, A1, CD, 2294 
898 DATA 42, A2, 32,85, A1, 34, BG, A1, CD, 4A, A2, 32, B6, A1, 34,87, 2806 
989 DATA A1, CD, 42, A2, 32,87, A1, 3,B6, A1,CD, 53, A2, 32, BB, A1, 2236 
919 DATA C3,65, A2, 3A,B5, A1, CD, 42, A2, 32,5, A1, 3A,B6, A1, CD, 2269 
929 DATA 4A, 2,32, BG, A1, 34, B7, A1, CD, 42, A2, 32, B7, A1, 3A, B8, 2199 
939 DATA A1, CD, 42, A2, 32, B8, A1,C3,65, A2, 34,85, A1,CD, 42, A2, 2280 
949 DATA 32,5, A1, 3A,B6, A1, CD, 42, A2, 32,86, A1, 34, B7, A1, CD, 2226 
959 DATA 42, A2, 32, B7, A1, 34, B8, A1, CD, 42, 42, 32,B8, A1,C3,65, 2149 
969 DATA A2, 3A,B5, A1,4F, CD, Ad, A1, 79,CD,9B, A, CO, 34,B6, A1, 2415 
979 DATA 18,F2, 34,87, 41,18, ED, 34, B8, A1, 18,E6, 09, 00,00, 08, 1568 
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Pour chaque article, entourez le ou les n° choisis. 
ANCIENS Nos AMSTAR & CPC 
N°26-27-28-29-30-31-32-33-34 

35— 36-38 — 39 — 40 — 41 — 42-43-44 —45 —46 —47 


DISQUETTES AMSTAR & CPC 
N°20-—21-22- 23-24-2526 — 27 - 28 — 29 - 30 
(une disquette réunit 2 numéros consécutifs d'Amstar & CPC) 


ANCIEN No CPC Infos 
N°25—26-727-28-29- 30-31 - 32-33-34 


Abonné 
Non abonné 


DISQUETTES CPC Infos 

— MEGA SOUND 

—AXYS 
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HS12 — HS13 — HS14 — HS15 — HS16 —HS17 — HS18 — HS19 — HS20 — HS21 -- HS22 -- HS23 
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DISQUETTES “ARCADES"" Téléchargement AMSTRAD CPC 
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Forfait port + 10 F par logiciel et 10 % pour livres 


Pour tout envoi par avion : 
prendre contact avec le service commercial 


Je joins mon règlement :  Q chèque bancaire 


PAYEZ PAR CARTE BANCAIRE 


RER 2 Ve PP 6 EE RE 
Lit} 


{inscrire les numéros de la carie, la date et signer] 


Date d'expiration Signature 


Date et signature Signature 


Q chèque postal 


A expédier à : Editions SORACOM 
La Haie de Pan - 35170 BRUZ 


25 F {unité) 
26 F {unité) 


110 F {unité) 
140 F {unité} 


26 F (unité) 


Abonné : 
110 F {unité) 
Non abonné : 
140 F {unité) 


25 F (unité) 


21 F (unité) 
23 F (unité) 


Abonné : 
110 F {unité} 
Non abonné : 
140 F {unité} 


600F 


60F 
89 F 


Code Postal : 


Q mandat 


Q Facultatif : recommandé + 20 F par commande 


MONTANT GLOBAL 
CPC Infos 35 


Ville : 
ECRIRE EN MAJUSCULES 


Afin de faciliter le traitement des commandes, nous remercions notre aimable clien- 
#le de ne pas agrafer les chèques, et de ne rien inscrire au dos. 








Commende : La commande doit comporter lous les renseignements demandés sur le bon de commande (désignation ou référence si celle-ci exisie). Toute absence de précisions est sous la responsabilité de l'acheteur. La vente est 


condue dès acceptafon du bon de commande par notre société, sur les articles disponibles 


uniquement. 
Les prix : Les prix indiqués sont valables du jour de la parution du catalogue jusqu'au mois suivant ou au jour de parution du nouveau catalogue, sauf erreur dans le libellé de nos tarifs au moment de la fabrication du catalogue, et de 


variation de prix importante des 


fournisseurs. 
Livraison : La Iraison intervient après le règlement Les délais de Iwraison étant de 10 à 15 jours environ, SORACOM ne pourra ètre tenue pour responsable des retards dus aux transporteurs ou aux grèves des services postaux. 
Traneport : La marchandise voyage aux risques et péris du destinataire. La livraison se faisant par cols postal ou par transporteur. Les prix indiqués sur le bon de commande sont valables sur toute la France métropolitaine, + 20 F par 
article pour Outre-Mer par avion et au-dessus de 5 kg nous nous réservons la possibilité d'ajuster le prix de transport enfonction du coût réel de celui-ci. Pour bénéficier de recours possible nous invitons notre aimable clientèle à opter pour 


l'envoi en recommandé. À récephon des paquets, loute détérioration doit Btre signalée 





Réciamation : Toute récdamañon doit intervenir dans les dix jours suivants la réception des marchandises. 
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ujourd'hui, In- 
centive livre sa 
dernière pro- 


duction : un logiciel 
permettant de construi- 
re votre propre monde 
en 3D | 


Mais attention, il ne 
s’agit pas d'un logiciel 
de dessin en 3D, ni d’un 
créateur de simulateur 
de vol mais bien d’un 
générateur de Jeux 
d'aventure en 3D. 


Vous pensez bien qu'un 
programme de cette 
ampleur occupe une 
place conséquente en 
mémoire. Heureuse- 
ment, les concepteurs 
ont prévus deux ver- 
sions du logiciel : avec 
seulement 64 Ko vous 
disposerez de deux 
modules alors que vous 





LOGICIEL UTILITAIRE 


dD CONSTAUC ON HIT 


Vous avez certainement encore en mémoire des jeux d'aventure intitulés : 
Driller, Dark Side ou Total Eclipse. Ces logiciels ont tous en commun la même 
société : Incentive Software. Mais ce n’est pas tout : la représentation du jeu 
passe par des images en 3 dimensions dans lesquelles votre personnage peut 


évoluer trés librement. 
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n'aurez qu'à charger un seul pro- 
gramme pour la version 128 Ko. 


Pour blen commencer avec 3D 
Construction Kit, Il faut posséder 
quelques notions de base : ainsi le 
Jeu est divisé en «aires», corespon- 
dantes, par exemple, aux différen- 
tes pièces d’une maison à explorer. 
Par l'intermédiaire du programme, 
il est possible d'accéder à l’une des 
254 aires de jeu et surtout de définir 
leurs caractéristiques. 


Vous pouvez commencer par défi- 
nir les objets à placer à l'intérieur 
de ce lieu. A partir de volumes sim- 
ples : cube, pavé, pyramide, vous 
pouvez constituez des objets plus 
complexes par assemblage. 


Ici aussi, la souplesse est de règle : 
les dimensions, couleurs et formes 
des objets sont entièrement para- 
métrables. 


Les couleurs sont particulièrement 
importantes, car le noir rend les ob- 
Jets invisibles et Il est conseillé d’utili- 
ser cette couleur pour des surfaces 
qui restent toujours cachées : la vi- 
tesse est ainsi augmentée. 


En plus des volumes, vous disposez 
de points, de lignes et de quelques 
formes géométriques «planes». Bien 
sûr, les objets en question peuvent 
être placés a peu près n'importe 
où dans le volume de la «pièce» 
mais le plus intéressant reste à venir : 
ll existe des objets spéciaux, les sen- 
seurs, qui peuvent détecter votre 








présence et provoquer une réac- 
tion en conséquence. 


Les «entrées» dans chaque aire sont 
des éléments importants : elles vont 
établir les liens entre les pièces grä- 
ce également à une série d'instruc- 
tions. 


L'aspect programmation n'a pas 
été oublié dans 3D... : les conditions 
globales sont matérialisées par un 
petit programme contenant, par 
exemple, le décompte du temps ou 
la réserve de pièces d'or. En plus 
de ces conditions générales, il faut 
définir des conditions locales pour 
chaque aire afin de créer des inte- 
ractlons entre le joueur et son envi- 
ronnement. 


Par exemple, si le joueur tire sur une 
partie du décor et dévoile ainsi un 
passage secret. 


Pour fabriquer ces petites routines, 
l'utilisateur dispose d'un véritable 
langage comprenant une quaran- 
taine d'instructions. On y trouve des 
tests conditionnels, des appels à des 
procédures et autres manipulations 
de variables. 


Votre personnage est lui aussi «pa- 
ramétrable» : sa vitesse de dépla- 
cement, sa résistance aux chutes, 
sa capacité à escalader les obsta- 
cles, tout cela est accessible. 


En fait, avec 3D Construction set, 
on peut construire son jeu de A à Z. 
Les seules choses à apporter con- 








cernent le cadre du jeu et le scé- 
narlo. 


A tout moment, même pendant la 
construction du jeu, on peut tester 
le jeu et modifier les paramètres im- 
médiatement. 


Puis, lorsque votre fantastique jeu est 


2407 


EDIT OBJECT PANEL 


terminé, il ne reste qu'à compiler 
votre programme : il sera alors indé- 
pendant de 3D... et pourra être dis- 
trlbué ou commercialisé librement. 


ll est plutôt rare de voir des utilitaires 
sortant sur CPC de nos jours, alors 
lorsqu'un programme est bon, 
autant le faire savoir. 


FREE: 00®435 








Te 


JEU DES 
PETITS CHEVAUX 


(1ère partie) 











Avec ce logiciel, on peut utiliser 1 à 
8 Joueurs humains avec ou sans l'in- 
tervention du joueur CPC (sauf pour 
l'option 1 joueur : le CPC joue obli- 
gatoirement). 


DADA BAS 


me. 


INRRRZTELIE LISTES EISÉ IIS )LA 
24 ? DADA - PROGRAMME LANCEUR )LB 
SA! HANEMEERENRENEAREENENXE )LC 


48 FOR 1=9 TO 15:1INK I, B:NEXT:BORDER S:PAPER 1:MODE ÿ:C DBT 
LS 


SB MEMORY &9C52:LOAD"P1",&9C53:CALL &9F24: CHARGE, "P2", DJL 
47599,8 

68 RESTORE 784:FOR 1=9 TO 5:READ A:INK I, A:NEXT )QT 
79 DATA 9,8,3,23,1,19,13,23,9,19,3,3,13,11,1,6 KH 
88 PAPER 5:CLS:üFENETRE, LEB99, &7599,9 )FA 


bATITAR' Te]: 11:41 


Valable pour CPC 664 - 6128 


Pas la peine 
d'expliquer en détails 
les règles de ce jeu très 
connu. 





Ce dernier vérifie la validité des dé- 
placements de tous les Joueurs. 
impossible de tricher ! Les comman:- 
des sont incluses dans le program- 








Ce jeu comprend 6 fichiers : 
DADA.BAS (lanceur), P3.BAS (pro- 
gramme principal), P1.BIN, P2.BIN, 
P4.BIN, P5S.BIN générés par les fichiers 
basic DATAS1 à DATASA4. 


À suivre... 





99 GOSUB 658:GO0SUB 634 )QR 
199 AD=K9C53:D4=AD+32 )PC 
119 DEF FNPOCX, Y)=8C099+(Y-1)x88+(X-1)x2 )GJ 
129 2X-25:2Y=7:A$="COMBIEN:DE":GOSUB 699 XKF 
139 2X=26:2Y=8:A$="JOUEURS : ?":GOSUB 699 )JX 
149 2Y=9:A$="1C2:0U:3":GOSUB 699 )AH 
159 NJ$=INKEYS:1F NJ$=""THEN 158 )ZY 
169 IF NJ$<"1"OR NJ$>"3"THEN 159 )YP 
179 2X=25:2Y=8 )CK 


188 GOSUB 638:1F NJ$="{"THEN A$=NJ$+":JOUEUR:OK"ELSE A$ DAR 
=ENJ$+": JOUEURS:0K" 


199 GOSUB 698:GOSUB 649 RD 
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299 IF NJ$-"1"THEN ORD$="1":GOTO 399 

219 GOSUB 634:A$="LO ORDINATEUR" :GOSUB 649 

229 1Y=9:A$="JOUE:T>IL:?":GOSUB 688 

238. ORDS=INKEYS:1F ORD$=""THEN 238 ELSE ORD$=UPPERS (ORD 
$) 

249 2X-26:2Y-8 

259 IF ORD$-"N"OR ORD$="O"THEN 268 ELSE 239 

269 IF ORDS="N"THEN GOSUB 639:0RD$="#":A$="DOMHAGE :àà": 
GOSUR 698 

278 IF ORD$="O"THEN GOSUB 634:D0RD$="1":A$="D) ACCORD: à": 
GOSUB 699:GOSUB 64 

269 IF ORD$="1"THEN GOSUB 639:2X=27:2Y=7:A$="JE:SUIS":G 
OSUB 649:2X-26:2Y-8:A$="AMSTRAD<<":GOSUB 699:GOSUB 649: 
GOSUB 639:2X:25:2Y-8:A$="J>A1:LES":GOSUB 699:2Y=9:A$="P 
IONS: NOIRS" :GOSUB 649 

299 GOSUB 648 

398 NJ=VAL(NJ$):FOR JJ=1 TO NJ 

319 JJS=STR$(JJ) 

329 IF NJ=1 THEN GOSUB 634:2X-25:2Y=8:A$="TON: PRENOM: ?" 
:GOSUB 699 :G0TO 349 

338 GOSUB 639:2X=26:2Y=7:A$="JOUEUR:":A$=A$+RIGHTS(JJ$, 
1):GO0SUB 698:2X-25:2Y-8:A$-"TON:PRENOM: ?":GOSUB 699 

349 2X=26:2Y-19:FOR 1=1 TO 8 

358 A$=INKEYS:A$=UPPERS(A$):1F A$=""THEN 358 

368 1F A$=" "THEN A$=":":G0TO 498 

378 IF INKEY(18)=8 OR INKEY(6)=Q THEN 419 

368 IF INKEY(79)=g THEN A$=":":ZX=ZX-1:1=1-1:1F [C1 THE 
N 1=1:2ZX=26:ELSE GOSUB 699:J$(JJ)=LEFT$(J$(JJ), 1-1) :GOT 
0 358 

399 IF ASCCHRS(65)0R A$>CHRS(9D)THEN 359 

499 GOSUB 699:ZX=2X+1:J$(JJ)=J$(JJ)+A$:NEXT 

418 1F JJ=1 THEN C$="PIONS:VERTS" 

428 IF JJ=2 THEN C$="PIONS:BLEUS" 

439 IF JJ=3 THEN C$="PIONS:ROUGES" 

449 GOSUB 639:ZX-26:2Y=7:A$=J$(JJ):GOSUB 689:ZY=8:A$="T 
U:AS:LES":GOSUB 694:2X=25:2Y-0:A$=C$::GOSUB 698:GOSUB 6 
48 

458 NEXT JJ 

468 IF NJ$)>"1THEN 499 

470 IF NJ$="{"THEN GOSUB 639:2X=27:2Y=8:A$="JE: SUIS": GO 
SUB 698:2X:26:2Y-9:A$="AMSTRADC<":GOSUB 699 :GOSUB 649:G 
OSUB 639:2Y=8:A$="JE: JOUE" :GOSUB 699:2Y=9:A$="AVEC:TOI" 
:GOSUB 649 :GOSUB 649:GOSUB 634 


48ÿ 2X:25:2Y-8:A$="J>Al:LES":GOSUB 69#:2Y=9:A$="PIONS:N 


GIRS":GOSUB 699:GOSUB 649 

499 GOSUB 639:2X=25:2Y=8:A$="C)EST:PARTI":GOSUB 689 :2Y- 

Q:A$="JE: CHARGE :à":GOSUB 699:FOR AT=1 TO 3999: NEXT 

598 MODE 2:PAPER S:BORDER 4:CLS:INK {,26:LOCATE 5,6:PEN 
{PRINT OMMANDE S :":LOCATE 5,7:PRINT"-------- 

518 LOCATE 19,9:PRINT"- Pour lancer le dé, une touche d 

u clavier ou <FIRE) 

529 LOCATE 18,{1:PRINT"- Choix d'un pion par <SPACE) 

538 LOCATE 19,13:PRINT"- Validation par <COPY> ou (FIRE 

) 

549 LOCATE 38,16:PRINT'BONNE COURSE !!" 

55ÿ FOR 1:1 TO NJ:T=LEN(J$(1)):T1=8:IF TCTI THEN GOSUB 

57 

568 NEXT:GOTO 589 


)CZ 
>KH 
)EA 
)CY 


)CJ 
)JN 
)LV 
)26 


>FH 


)FG 
)LE 


HA 
)BZ 


)MQ 


42 





578 T2=T1-T:FOR J=1 TO T2:J$(1)=J$(1)+":":NEXT J:RETURN DAV 
589 OPENOUT" VAR" :PRINT#9, NJ$:PRINT#9, ORD$:FOR JJ=1 TO N DXE 
J':PRINTH9,J$(JJ):NEXT:CLOSEOUT 
598 RUN"P3" )XE 
699 FOR T=1 TO LEN(A$):SP=(ASC(MIDS(A$,T,1)))-48:TX=T-1 )TH 
: AA=INT({88x*RND) : SOUND 1, AA,5,5 
619 IF SP<ÿ OR SP>42 THEN SP-43 )XC 
628 CALL AD, FNPO(ZX, ZY)+(TX42),D4+(SP#{6):NEXT T:RETURN DCW 
639 üFENETRE, &D96B, &891D, ÿ:RETURN )DR 
649 FOR 1=1 TO 1998:NEXT:RETURN )2E 
658 ENV 1,24,-1.25,9.5:ENV 2,3,9,1,1,-12,1:ENT-19,1,1,1 >XG 
à 
668 DATA 142,19, 127,19,119,29,9,29,142,19,142,19, 142,29 DTR 
, 9, 20,142,19,127,19,119,20,9,29,142,19,142,19,142,28,8, 
28,142,19,127,18,142,29,0,29,142,19, 142,18, 142,29, 159,2 
9,142, 29,196,69,119,49,9,29,127,29,8,29,199,19,199,19,1 
09, 29,9,28,127,29,142,29,9,29 
679 DATA 199,19,199,19,199,29,9,29, 198,29, 291,29,119,29 DJE 
127,28, 149,29, 159, 29, 179,29,127,69, 199,29,9,28,142,19, 
127,18 
689 DATA 119,29,9,29,142,19,142,19,142,29,0,29,142,18,1 D2T 
27,19,119,29,9,29,142,19,142,19,142,29,8,29,142,19,127, 
18,142,29,0,29,142,19,142,19,142,29, 159,28, 142,29, 196,6 
9,119,49,9,29,127,20,9,20, 199, 19,190, 19, 199,29,9,28,127 
, 28,142, 29,9,29 
698 DATA 199,19, 198, 19,199, 29,9,29,199,29 )FQ 
789 DATA 127,29,119,29, 127,29, 179,49, 159,29, 142,29,198, >QG 
28, 142,29, 119,29,95,29,71,29,71,48 
719 RESTORE 669:FOR x=1 TO 194:GOSUB 738 GB 
729 NEXT x:GOSUB 649:RETURN )XN 
739 READ h, du:SOUND 1,h,du-3,15,5:SOUND 2, h43,du-3,19,5 >KV 
: RETURN 

P3-BNS 
UMR EEELTELEESELTETEESEEEEE) )LA 
29 ? P3 - PROGRAMME PRINCIPAL )LB 
SIRET ELCTEEETEEEELIEETETSEEEE) )LC 
48 DEFINT A-Z )PA 
58 DIM A1$(63),A2$(63),A3$(63),A4$(63),A5$(63),A6$(63), DKW 
A7$(63),A8$(63),A9$(63), AA$(63),AB$ (63), AC$(63) 
69 DIM P(16),C(16),P1(16),P2(16),R(16),E1$(16),E2$(16) ODVY 








IF A8$(1)="G"THEN AB$(1)="8&8622" )BJ 

JJ=1 TD NJ:INPUT#9,J$(JJ):NEXT:CLOSEIN IF A9$(I)="H"THEN A9$(1)="&824B" )BD 
88 IF ORD$="1"THEN J$(4)="AMSTRAD:" )CD 369 IF AB$(1)="AMTHEN AB$(1)="&86DC" )BT 
98 RESTORE 1969:FOR 1=1 TO 63:READ A1$(1),A2$(1),A3$C1) DXX 399 IF A9$(1)="BYTHEN A9$(1)="&89gC" >BU 

499 IF A8$(1)="C"THEN A8$(1)="88799" BF 
199 IF A2$(1)="A"THEN A2$(1)="88939" BH 419 IF A9$(1)="D"THEN A9$(1)="&8993" )BF 
119 IF A3$(1)="B"THEN A3$(1)="&889C" )BV 429 IF AB$(1)="I"THEN AB$(1)="8&879F" )BN 
129 IF A2$(1)="C"THEN A2$(1)="88966" >BM 430 IF A9$(1)="J"THEN A9$(1)="887C9" >BP 
138 1F A3$(1)="D"THEN A3$(1)="&8993" )BR 449 NEXT )ED 
149 IF A2$(1)="E"THEN A2$(1)="&81F9" )BD 459 FOR 1=1 TO 63:READ AA$(I),AB$(I),AC$(1) IN 
159 IF A3$(1)="F"THEN A3$(1)="R&621E" )BJ 469 IF AB$(I)="G"THEN AB$(1)="&83D3" )BZ 
169 IF A2$(1)="GTTHEN A2$(1)="&8278" )BB 479 IF AC$(I)="H"THEN AC$(1)="&824B" )BB 
179 IF A3$(I)="H"THEN A3$(1)="&824B" )BN 469 IF AB$(I)="A"THEN AB$(1)="8&845D" )BY 
189 IF A2$(1)="INTHEN A2$(1)="8835F" )BV 499 IF AC$(I)="BTHEN AC$(I)="&8ggC" )BR 
199 IF A3$(1)="JMTHEN A3$(1)="88389" )BD 599 IF AB$(I)="C"THEN AB$(1)="&848A" )BT 
299 NEXT >DH 519 IF AC$(I)="D'THEN AC$(1)="48993" )BD 
219 FOR 1=1 TO 63:READ A4$(1),A5$(1),A6$(I) )HY 528 IF AB$(I)="E"THEN AB$(1)="88559" )BB 
229 IF AS$(I)="C"THEN A5$(1)="8&87F4" )BT 539 IF AC$(1)="F"THEN AC$(1)="&821E" )BH 
239 IF A6$(1)="D"THEN AG6$(1)="&8893" )BZ 549 IF AB$(I)="I"THEN AB$(1)="&857E" BH 
249 IF AS$(I)="ETHEN A5$(1)="&88BA" >BH 559 IF AC$(I)="J"THEN AC$S(1)="&85A1" )BB 
259 IF AG$(1)="F"THEN A6$(1)="&B21E" )BR 569 NEXT )EG 
269 IF AS$(I)="G"THEN A5$(1)="&88E8" )BF 579 FOR 1=1 TO 16:READ E1$(1),E2$(I):NEXT:READ E3$,E4$, DFV 
279 IF AG$(I)="HTHEN A6$(1)="&824B" )BN ES$,E6$ 
289 IF A5S$(I)="A"THEN A5$(1)="8&8942" )BR 589 FOR 1=9 TO 15:1INK 1,8:NEXT:MODE S:BORDER 9:PAPER 1: DCR 
299 IF AG$(1)="B"THEN A6$(1)="&889C" )BL CLS:WINDOW#1,5,1,1,24:PAPERH1, 1:CLS#1 
399 IF AS$(I)="ITTHEN A5$(1)="8&89CF" )BR 598 MEMORY &7598-1:üCHARGE, "P4", 47590, B:üFENETRE, &D915, DKT 
319 IF AG$(1)="J"THEN A6$(1)="&B89FC" )BN &7509,8 
32ÿ NEXT )EA 648 AD=49C53:D4=AD+32 >PH 
338 FOR 1=1 TO 63:READ A7$(1),AB$(1),A9$(1) )HL 619 DEF FNPO(X,Y)=&C998+(Y-1)x84+(X-1)x2 >GP 
349 IF A8$(I)="ETTHEN A8$(1)="885F4" )BC 625 RESTORE 63:FOR 1=4 TO 15:READ A:INK I, A:NEXT )TB 
359 IF A9$(1)="F"THEN A9$([)="&821E" )BZ 639 DATA 26,9,6,19,2,17,29,9,9,19,15,16,13,11,1,3 )NH 

648 AV=D:MEMORY &7599-1:üCHARGE, "P5",47599,9 MP 

658 FOR 1=1 TO NJ*x4:E{=VAL(E1$(1)):E2=VAL(E2$(1)):üFENE KW 

TRE,E1,E2, S:NEXT:NJ=NJ+#1{ 

669 IF ORD$="{"THEN FOR 1:13 TO 16:E1=VAL(E1$(1)):E2=VA DUG 

L(E2$(1)):üFENÊTRE, E{,E2,9:NEXT 

679 "MEMOIRE DES )TD 

689 RESTORE 699:FO0R 1=1 TO G:READ A$(1),B$(I):NEXT TP 

699 DATA &798B,47509,&7A51,8&75C6,47B11,47686,k7BD1,&774 >DV 

6,&7C91,8&7896,4&7D51,478C6 

798 "TOUR CHEVAL VERT )RH 

718 PRINT CHR$(21);FRE("");CHRS(G6);:1F GA1=1 THEN 989  )VZ 

728 J=1:IF FIN={ THEN JOUEURS(GA)=J$(J):GOTO 4514 ELSE DKJ 

GOSUB 2194 

739 FOR 1=1 TO 4:1F P{(1)=1 OR P{(1)=2 THEN 2=1:GO0TO 75 DXF 

ÿ 

749 NEXT )EG 

759 W=G:V=G:H1=9:H2-9:H3=9:H4=g:CALL RBBI8:CLEAR INPUT: DNR 

GOSUB 1939 

769 IF PV=4 THEN 78ÿ >NH 

778 IF A=6 AND P(1)©1 AND P(2)C21 AND P(3))1 AND P(4) DYJ 





O1 THEN Z=$:GOSUB 2299:K-9:S=9:G0TO 889 

788 IF PV)>1 THEN GOSUB 2379:K-9:S:9 )CG 
799 IF H1=1 AND H2=:1 AND H3=1 AND H4={ AND ACG6 THEN GDS DNT 
UB 3428:GOSUB 2118:G0T0 989:ELSE IF H1=1 AND H2=1 AND H 

3=1 AND H4=1 AND A=6 THEN 978 

888 1F P(1)=ÿ AND P(2)=8 AND P(3)-ÿ AND P(4):ÿ THEN GOS )CB 
UB 3428:GOSUB 2119:GO0T0 988 

819 N=B:FOR 1=56 TO 62:N=N+1:1F N=7 THEN N:6 KA 


43 





829 IF P(Z)=1 AND A=N THEN GOTO 849 
839 NEXT:GOTO 858 
848 IF A=6 THEN D3-6:A=1:G0T0 898 ELSE A:1:G0T0 899 
859 GOSUR 3474:GOSUB 3499:GOSUB 3519 
868 GOSUB 3579:GOSUB 3614:GO0SUB 3654 
879 1F O=1 THEN GOSUB 2119:0=9:G0T0 979 
889 GOSUR 3729:GOSUB 3759:GOSUB 3784 
899 GOSUB 4429 
909$ FOR I=P(Z)TO P(Z)+A:AÏ=VAL(ALS$(1)):A2=VALIA2$(T)):A 
3=VAL(A3$(1)):UFENETRE, A1, A2,8:GOSUB 3429:1F I=P(2)+A-1 
THEN GOSUB 2164 
919 IF 1=P(Z)+A THEN 92ÿ ELSEUFENETRE, A1,A3,9:GOSUB 443 
ÿ:NEXT 
92ÿ PIZ)=P(Z)+A:C(Z)=C(Z)+A 
939 1F P(Z2)>56 AND P(Z)€63 THEN P1(Z)=2 
949 IF PIZ)=63 THEN GOSUB 3429:G0SUR 4449: üFENETRE, &CBA 
9,A3,9:P1(Z)=3 
958 IF PI(1):3 AND P1(2)=3 AND P1(3)=3 AND P1(4)=3 THEN 
GA1=1:GA=GA+1:JOUEURS(GA)=J$(J):NJENJ-1:D3=8:GOTO 969 
ELSE 978 
968 IF NJC2 THEN FIN=1:GA=GA+1 ELSE GOSUB 4489 
979 IF A:6 OR D3-6 THEN GOSUB 2129:D3=8:G0T0 759 
989 ?TOUR CHEVAL BLEU 
999 IF GA2=1 THEN 1289 
1999 IF NJ$)"{"THEN 1919 ELSE 1588 
1919 J=2:1F FIN=1 THEN JOUEURS(GA)=J$(J):G0T0 4519 ELSE 
GOSUB 2194 
1929 FOR 1=5 TO 8:1F P1(1)={ OR P1(1)22 THEN Z=1:G0T0 1 
#49 
1939 NEXT 
- 1849 W=6:V=5:H5:9:H6-9:H7=9:H8-4:CALL &BB18:GO0SUB 1939 
1959 IF PB=4 THEN 1979 
1869 IF A=6 AND P(5)<)1 AND P(6)<>1 AND P(7)C1 AND P(8 
1)1 THEN 2=#:G0SUB 2669:K=9:5=9:G0T0 1998 
1979 IF PB>1 THEN GOSUB 2749:K=9:5=ÿ 
1988 1F H5=1 AND H6=1 AND H7=1 AND H8=1 AND A<6 THEN GO 
SUB 3429:G0SUB 2119:G0T0 128#:ELSE IF H5=1 AND H6=1 AND 
H7:=1 AND H8:1 AND A=6 THEN 1279 
1899 IF P(5)=ÿ AND P(6):ÿ AND P(7):ÿ AND P(8):ÿ THEN GO 
SUB 3428:GOSUB 2119:G0T0 1289 
1199 N=9:FOR 1:56 TO 62:N=N+1:1F N=7 THEN N=6 
1118 IF P(Z2):1 AND A=N THEN GOTC 1139 
1129 NEXT:GOTO 1148 
1139 IF A:6 THEN D3-6:A:1:GO0T0 1189 ELSE A=1:G0T0 1169 
1149 GOSUB 3454:GOSUB 3494:G0SUB 3519 
1159 GOSUB 353ÿ:GOSUB 3619:G0SUB 3659 
1169 1F 0-1 THEN GOSUB 2119:0=9:GO0T0 1278 
1178 GOSUB 3699:GOSUB 3759:GOSUB 3789 
1189 GOSUB 4429 
1199 FOR I=P(Z)T0 P(Z)+A:A4=VAL(A4S(T)):AS=VAL(AS$(1)): 
A6=VAL(AG$(1)):üFENETRE, A4,A5,9:GOSUB 3429:1F 1=P(Z)+A- 
1 THEN GOSUB 2169 
1289 1F 1=P(Z)+A THEN 1219 ELSEUFENETRE, A4, A6,8:GOSUB 4 
439 :NEXT 
1218 C(ZI=C(Z)+A:IF C(2)66 THEN C(2)=C(2)-56 
1228 P(Z)=P(Z)+A 
1238 IF P(2)>56 AND P(Z)<63 THEN P1(2)=2 
1249 1F P(Z):63 THEN GOSUB 3429:G0SUB 4448: üFENETRE, &CB 
A8, A6,8:P1(7):3 


)AG 
)MQ 
)TZ 
DT 
DU 
)FN 
)DC 
)Q] 
)JC 


)HN 


)ND 
)EP 
JUL 


)PE 


>NC 
NF 
>TH 
)PV 
)2L 
)LJ 


)ZA 


XKF 
)YH 
>PN 
)BV 


)CP 
)VD 


)FK 


LC 
)CA 
NJ 
VB 
)EM 
)EL 
)GB 
DEF 
»XC 
)LV 


KB 


)LY 
)HK 
)FN 
V4 





1258 IF P1(5)=3 AND P1(6):3 AND P1(7)=3 AND P1(8)=3 THE DUA 
N GA2=1:GA=GA+1:JOUEUR$S(GA)=J$CJ):NJ=NJ-1:D3=#:G0TO 126 
ÿ ELSE 1278 


1268 IF NJ<2 THEN FIN=1:GA=GA+1 ELSE GOSUB 448ÿ )NR 
1279 IF A=6 OR D3=6 THEN GOSUB 2129:D3:$:G0T0 1949 QC 
1288 TOUR CHEVAL ROUGE )YD 
1299 IF GA3=1 THEN 1588 >PQ 
1389 IF NJ$>"2"THEN 1319 ELSE 1589 )ZU 


1319 J=3:1F FIN=1 THEN JOUEURS(GA)=J$(J):G0T0 4519 ELSE )LN 
GOSUB 2198 

1329 FOR [=9 TO 12:1F PI(1)=1 OR P1(1)=2 THEN Z=1:GOTD AG 
1349 


1338 NEXT KJ 
1349 W=ÿ:V=0:H9=D:HA=G:HB=9:HC=8:CALL &BB18:GOSUB 1939 )ZT 
1359 IF PR=4 THEN 1374 >PH 


1369 IF A=6 AND P(9)<>1 AND P(18)C>4 AND P(11)C1 AND P )FG 
(12101 THEN 2=8:G0OSUB 3848:K-9:S=g:G0T0 1399 

1379 IF PR>1 THEN GOSUB 3129:K-0:S-ÿ )CC 
1389 IF H9=1 AND HA={ AND HB=1 AND HC=1 AND A<6 THEN GO DWK 
SUB 3429:GOSUB 2118:GO0T0 1589:ELSE IF H9=1 AND HA={ AND 
HB=1 AND HC:1 AND A=6 THEN 1579 

1398 IF P(9)=9 AND P(1#)-ÿ AND P(11)=8 AND P(12)=9 THEN )KJ 
GOSUB 3429:GOSUB 2119:G0T0 1588 


1499 N=9:FOR 1:56 TO 62:N=N+{:IF N=7 THEN N:6 )LF 
1419 IF P(Z)=1 AND A=N THEN GOTO 1439 CG 
1428 NEXT:GOTO 1448 >NQ 
1439 IF A=6 THEN D3=6:A=1:G0T0 1489 ELSE A=1:G0TO 1488 DUC 
1449 GOSUB 3458:GOSUB 3479:GOSUB 3519 )EN 
1458 GOSUB 3539:GOSUR 3579:GOSUB 365 )EV 
1468 IF O=1 THEN GOSUB 2119:0=9:G0T0 1578 )GH 
1479 GOSUB 3699:GOSUB 3729:GOSUB 3788 DEF 
1488 GOSUB 4429 XF 


1499 FOR I=P(2)TO P(Z)+A:A7=VAL(ATS(1)):AB=VAL(ABS(1)): >MQ 
A9=VAL(A9$(1)):üFENETRE, A7, A8,9:GOSUB 3429:1F I=P(Z)+A- 

1 THEN GOSUB 2169 

1598 IF I=P(Z)+A THEN 1519 ELSEUFENETRE, A7, A9,9:GOSUB 4 >LF 
439 :NEXT 


1519 C(Z)=C(Z)+A:IF C(Z)56 THEN C(2)=C(Z)-56 > LB 
1528 P(Z)=P(Z)+A )LC 
1539 IF P(21»56 AND P(Z1<63 THEN P1(7)=2 )FR 


1549 IF P(Z)=63 THEN GOSUB 3429:GOSUB 444:üFENETRE, &CB VC 
A8, A9,Q:P1(7):3 

155 IF P1(9)=3 AND P1(1#)=3 AND P{(11)=:3 AND P1(12):3 )2Q 
THEN GA3=1:GA=GA+1:JOUEUR$ (GA)=J$(J):NJ=NJ-1:D3=8 :GOTO 

1569 ELSE 1578 


1569 IF NJ<2 THEN FIN=1:GA=GA+1 ELSE GOSUB 448 NU 
1579 IF A=6 OR D3:6 THEN GOSUB 2129:D3=ÿ:G0T0 1349 )QJ 
1589 TOUR CHEVAL NOIR )YG 
1599 IF GA4=1 THEN 799 )PK 
1689 IF ORD$="1"THEN 1619 ELSE 789 )ZU 


1618 W=ÿ:J=4:1F FIN=1 THEN JOUEUR$(GA)=J$(J):GOTO 4519 RT 
ELSE GOSUB 2199 

1628 K=ÿ:1=9:FOR 1=13 TO 16:1F P1(1)=1 OR P1(1)=2 THEN )LQ 
Z=l:G0TO 164$ 


1638 NEXT )LB 
1649 FOR AT=1 TO 3Y49:NEXT:GOSUB 1939 )EA 
1659 IF PN=4 THEN 1799 >PH 


1669 IF A=6 AND P(13)C>1 AND P(14)C1 AND P(15)©1 AND AW 
P(16)<>1 THEN Z=9:GO0SUB 3848:K=9:GO0T0 1758 
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1679 FOR 1=1 TO 12:1F C(1)=43 AND A=6 THEN Z=8:GOSUB 38 

49:K=9:GOTO 1758 

1689 NEXT 

1698 IF A<6 AND PN=8 THEN 1759 

1799 GOSUB 3949:K-9 

1719 IF W=2 AND A:6 THEN A=1:W=9:D3-6:G0T0 1818 

1728 IF W=2 THEN A=1:W=9:GO0TO 1819 

1738 IF PRI=1 THEN PRI-9:G0TO 1769 

1749 IF 0=1 OR P1(Z):9 THEN 1799 

1759 W=ÿ:1F P(13)=8 AND P(14)=8 AND P(15)=8 AND P(16)=8 
THEN GOSUB 3428:G0SUB 2119:G0T0 798 

1768 GOSUB 3459:GOSUB 3479:GOSUB 3498 

1779 1=B:FOR 1=13 TO 16:1F A=6 AND P1(1):9 AND D={ AND 

P(13)C41 AND P({4)C1 AND P(15)©1 AND P(16)01 THEN 0= 

S:GOSUB 3849:K-ÿ 

1788 NEXT 

1798 IF 0=1 OR P1(Z)=9 THEN GOSUB 2119:0-ÿ:G0T0 1998 
1894 GOSUB 3699:GOSUB 3729:GOSUB 3758 

1818 GOSUB 4429 

1828 FOR I=P(Z)TO P(Z)+A:AA=VAL(AAS(1)):AB=VAL(AB$(1)): 
AC=VAL(ACS (1) ):üFENETRE, AA, AB, 8:GOSUB 3429:1F [=P(Z)+A- 
{ THEN GOSUB 2169 

1838 IF 1=P(Z)+A THEN 1849 ELSEUFENETRE, AA, AC, 9:GOSUB 4 
439 :NEXT 

1848 C(Z)=C(Z)+A:IF C(Z)>56 THEN C(2)=C(Z)-56 

185g P(Z)=P(Z)+A 

1868 IF P(2):63 THEN GOSUB 3429:GOSUB 4448: üFENETRE, &CB 
AQ,AC,8:P1(Z)=3 

1878 IF P1(13)=3 AND P1(14)=3 AND P1(15)=3 AND P1(16)=3 
THEN GA4=1:GA=GA+1{ :JOUEURS(GA)=J$(J) :NJ=NJ-1 :D3:9 : GOTO 
1884 ELSE 1899 

1889 IF NJ<2 THEN FIN=1:GA=GA+{ ELSE GOSUB 448ÿ 

1898 IF P(Z):57 THEN P1(Z)=2 

1998 IF A=6 OR D3-6 THEN GOSUB 2129:D3-9:G0T0 1649 

1919 GOTO 749 

1928 "JET DU DES 

1938 CLEAR INPUT:CLS#{:AV=8:FOR L=1 TO 19:RANDOMIZE TIM 
E:A=INT(RND*6)+1:D1=VAL(AS(A)) :D2=VAL(BS(A)) :UFENETRE, & 
E697-AV,D1,9:AV=AV+89 : SOUND 1,956,1,19,9, 9, RNDx31 : GOSUB 
3449 :üFENETRE, &E697-AV, D2, 9: AV=AV+89 

1949 SOUND 1,992,1,19,9,8,RNDx31:GOSUB 3449:NEXT L 

1959 RETURN 


1969 DATA &EGBB, &7FDC, &7FAF, kD6GB, A,B,&C61B,A,B,&FG7E, À ; 


,B, E52B, À,B, &D4DB, A, B,&C48B, À,B, &C4B8, A,B,&C485, À,B, &C 
482,A,B,8&C47F,A,B,&C47C, À,B,&C479, À, B,&D389,C, D, &EA98, & 
84C9,&8BFC, LEA9C,C, D, &EA9F,C,D, EAA2, C, D, LEAAS, C, D, &EAA 
8,C,D,&EAAB,C, D 

1978 DATA &DA5B,C, D, &CASB,C, D, &F96B,C,D,LE91B,C,D, &DBCB 


,C, D, &C87B,C,D, 8&C881,8&8136, 48163, &CD88, 48198, &B1C9, &D8D 


8,E,F,4E028,E,F,RF978,E,F,&CALB,E,F, RDAGG,E,F, &EABB,E,F 
, REABB,E,F,&EABE,E,F,&EACI,E,F, &EACH,E,F, &EAC7,E,F, KEAC 
A,E,F 

1989 DATA &D3BA, G,H, LC4AA, &B2A5, LB2D5, &C4A7, G,H, &C4A4,G 
,H, 8C4A1,G,H,&C49E, G,H, LCA9B, G,H,4C498,G,H, &D4E8, G, H, LE 
538,6,H, 4F588,G,H, &C628, G,H, &D678,G,H, &EG6CB, G,H, &E6C1, & 
8385,48332, &D672, 1,J,8C622,1,J9,&F582, 1,J,8E532, [,J, &D4E 
2,1,J,8C492,1,J,8&E3A2, &8A29, &BABS 

1999 DATA LEA9B, 48821, &BDFC, &EAQC, C, D, &EA9F, C, D, BEAA2, C 
D, 8&EAAS,C, D, &EAAB,C, D, LEAAB, C, D, &DA5B,C, D, &CABB,C, D, &F 


)QJ 


)LG 
VB 
NE 
>NG 
)AC 
BH 
DXK 
)QR 


)EB 
VF 


> LR 
UV 
)EZ 
XC 
M2 








96B,C,D,&E9{B,C,D, &D8CB, C, D, LCB7B, C, D, 4C881, 48850, 18163 
, 4CH88, LBBBA, &B1C9, LDBDB,E,F, LE928,E,F,&F978,E,F, ÉCA1B, 
E,F,4DA68,E, F 

2998 DATA LEABB,E,F,LEABB,E,F, LEABE,E,F, LEAC1,E,F, REAC4 
,E,F,MEACT,E,F, EACA,E, F, KD3BA, G,H, LC4AA, 8915, 88205, &C 
4A7,G,H, KC4A1,G,H, BCAA1, G,H, &C49E,G, H, BCA9B, G, H, LC498, G 
,H, 8D4E8, G, H,4E538,G,H, &F588, G, H, £C628, 6, H, &D678, G, H, LE 
6CB,G,H 

2819 DATA &E6C1, 48945, 48332, LEBBB, 48972, L7FAF, LDG6B, À, B 
CGB,A,B, LFS7B, À,B,4E52B, À, B, LD4DE, A,B, C4BE, A, B, LC4B 
8,4,B,4C485,A,B,8C4B9, A,B, 4C47F,A,B, CAT, A,B, &CA79, À,B 
&D389,C,D, LD38C, 1,J,8D88F, 1,9, 40392, 1,1, 8D395, 1, J, LD39 
8,1,J,4D39B, 1,J,RE3A2, &8A4C, &BAB5 

2929 DATA 4C28B,485C4, LB1C9, &DBDB,E,F,4E928,E, F, 8F978,E 
,F,RCALB,E,F, SDAGB,E,F,LEABB,E,F, BEABB,E,F,LEABE,E,F, BE 
ACI,E,F,BEAC4,E,F, BEAC7,E,F, LEACA,E, F, &D3BA, G, H, ECAAA, & 
864F, &82D5, 4C4A7,G,H, LC4AA, G,H, KC4A1, G,H, EC49E, G, H, LC49 
B,G,H,4C498, G,H | 

2938 DATA &D4E, G,H,LE538, G,H, &F588, 6, H, &C628, G,H, &DG78 
,GH,LEBCE, 6,H, E6C1, &867F, 48332, LEGBB, LBGAC, 7FAF, LDG6 
B,4,B,4C61B,A,B,&F57B, A,B, 4ES2B, À,B, &DADB, A, B, LC48B, À,B 
,KC488, À, B, LC485, À, B, &C482, À, B, &C47F, À,B, &CATC, À,B, LCA 
9,4,B 

2949 DATA 8D389, C, D, LEA9B, 88736, LBDFC, BEAQC, C, D, LEAOF, C 
D, 8EAA2, C, D, LEAAS, C, D, BEAAB, C, D, LEAAB, C, D, &DASB, CD, 8C 
MB,C,D,8F96B,C, D, &E91B, CD, 8&DBCB,C,D, 8CB7E, CD, CBB1, 4 
8772,48163, &F8D!, 1,J,4C971, 1,J,8D9Ct, 1,J,8EA14, 1,9, &FAG 
1,1,J,40B81, 1,J,BE3A2, LBAGF, K8ABS 

2059 DATA SC4AA, 483A3, 88205, KC4A7, G,H, &C4A4, G, H, EC4A1, G 
.H, 4C4SE, G,H, 8CA9B, G, H, &C498, G,H, &DAEB, G,H, LE53B, G,H, BF 
588,6,H,&C628,G,H, 8D678, 6, H, LEBCE, G,H, LEGC1, 18409, 48332 
&E6BB, &842D, B7FAF, &DGGB, À, B, LCGLB, À, B, &F57B, À, B, LES2B, 
A,B, 4D4DB, A, B 

2968 DATA &CABB, À, B, &C4B8, A, B, BCABS, À, B,4C482, A, B, ECATF 
,À,B,&C47C, A,B, &C479, À,B, 80389, C, D, LEA9, 86487, L8UFC, LE 
A9C, C, D, &EA9F,C, D, BEAA2, C, D, &EAAS, C, D, BEAAB, C, D, BEAAB, C 
D, &DASB, C, D, CABB, C, D, &F96B, C,D, LEQ1B, C,D, &DBCB, C, D, &C 
878,C,D 


2978 DATA 8C8B1,&84F3, 48163, &C088, 48529, &81C8, &DBDB,E, F 


, RE928,E,F,&F978,E,F,BCAIG,E,F, &DAGB,E,F, &EABB,E,F, LEAB 
B,E,F,REABE,E,F,GEACI,E,F,BEAC4,E,F,REAC7,E,F,EACA,E,F 
, &D3BA, G,H,8D3B7, 1,J,4D3B4,1,J,8D3B1, 1,9, LD3AE, 1,3, &D3A 
B,1,J,&D3AB, 1,J,8E3A2, &8A92, &BAB5 

2988 DATA &FCCB,&7E29, &FCD6, k7E4C, LCGFB, &7E29, &C796, &7E 
4C, &F81B, &7EFC, &F826, 4 7F1F, &C248, &7EFC, &C256,&7FÎF,LFB3 
D,&7F5F,&F84B,&7F82, &C26D, &7F5F, &C27B,47F82, &FCED, &7E8C 
,&FCFB, &7EB1,&C71D, &7EBC, &C72B,&7EB1,47E16,L7EE9, &7F4C, 
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v 
= 
2e 


)QP 


&7E79 

2999 AFFICHAGE 

2199 CLEAR INPUT:A$="A:"+J$(J)+"DE: JOUER" :GOSUB 2139:RE 

TURN 

2119 IF A=6 THEN RETURN ELSE A$=":"+J$8(J)+"::PASSE": GDS 

UB 2134:FOR AT=1 TO 2999:NEXT:RETURN 

2128 A$=":"+J$(J)+"::REJOUE":GOSUB 2139 :RETURN 

2139 CLSK1:2X=1:ZY=4:FOR T=1 TO LEN(A$):SP=(ASC(HIDS (A$ 

,T,1)))-48:TX=T-1:1F T>=11 THEN TX=TX-19:2Y=6 

2149 IF SP<ÿ OR SP>42 THEN SP=43 

2159 CALL AD, FNPO(ZX, ZY)+(TXx2),D4+(SPx16) :NEXT T:RETUR 

N 

2169 FOR M=1 TO 4:1F R(M):1 THEN 2179 ELSE NEXT:G0TO 21 

99 

2179 EL=VAL(E1$ (M) ):E2=VAL(E2$(M)) 

2189 GOSUB 4499:FOR F=1 TO G6:üFENETRE, A1,A3,9:G0SUB 344 

S:üFENETRE, A1, A2,9:NEXT F:üFENETRE, E1,E2,P:R(M)=9:PV=PV 

-{:RETURN 

2199 FOR M=5 TO 8:1F R(M)=1 THEN 2288 ELSE NEXT:G0TO 22 
} 29 

2299 EL1=VAL(E1$(M)):E2=VAL(EZ$(M)) 

2219 GOSUB 4448:FOR F=1 TO 6:üFENETRE, A4, A6,9:GOSUB 344 

S:üFENETRE, A4, A5,9:NEXT F:üFENETRE, E1,E2,0:R(M) :g:PB=PB 

-L:RETURN 

2228 FOR M=9 TO 12:1F R(M)=1 THEN 2239 ELSE NEXT:GOTO 2 

259 

2238 EL=VAL(E1$(M)):E2=VAL(E2$(M)) 

2249 GOSUB 4498:FOR F=1 TO G:üFENETRE, A7, A9,9:GOSUB 344 

S:üFENETRE, A7, A8,8:NEXT F:üFENETRE, Ei,E2,8:R(M)=ÿ:PR=PR 

-L:RETURN 

2258 FOR M=13 TO 16:1F R(M)=1 THEN 2268 ELSE NEXT:GOTO 

2289 

2269 EL=VAL(E1$(M)):E2=VAL(E2$(M)) 

2279 GOSUB 4499:FOR F=1 TO G:üFENETRE, AA, AC, 9:GOSUB 344 

S:üFENETRE, AA, AB,@:NEXT F:ÜFENETRE, E1,E2,8:R(M)=@:PN=PN 

- {RETURN 

2289 RETURN 

2298 FOR Z=1 TO 4:1F A=6 AND P(Z):ÿ THEN 2319 

2309 NEXT 2 

2318 E1=VAL(E1$(Z)):E2=VAL(E2$(2)) :E3=VAL(E3$) 

2329 VHILE INKEY$="" 

2339 IF P(Z)=ÿ THENUFENETRE,E1,E2,8:GOSUB 3438:GOSUB 38 

19: UFENETRE, E1,E3,8:GOSUB 3438:GOSUB 3819 

2348 IF K=1 OR PV:9 THEN P(Z)=1:A=ÿ:D3=6:C(2)=1:P1(2)=1 

:PV=PV+1:RETURN 

2358 IF S=1 THENGFENETRE, EL,E2,9:2-9:S=9:V=1:G0T0 2378 

2369 WEND:GOTO 2328 

2378 FOR 1=1 TO 4:1F P{(1)=1 OR P1(1)=2 THEN Z={:G0T0 2 

399 

2389 NEXT 

2398 1F PV=1 AND V=9 THEN RETURN ELSE 254ÿ 

2499 VHILE INKEYS="" 

2419 1=g:1=P(Z):A1=VAL(ALS(E)):A2=VAL(A2$C1)) : A3=VAL(A3 

$(1)) :UFENETRE, A1, A3,#:GO0SUB 3438:G0SUB 3B12:üFENETRE, A 

1,A2,89:G0SUB 343$:GO0SUB 3819 

2429 1F K=1 THEN RETURN 

2439 IF S=1 THEN S=S:G0TO 2479 

2449 VEND:GOT0 2498 

2458 IF Z=1 THEN H1:1 ELSE IF Z=2 THEN H2=1 ELSE IF Z=3 
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THEN H3=1 ELSE IF Z=4 THEN H4=1 


2468 IF H1=1 AND H2=1 AND H3=1 AND H4=1 THEN RETURN ELS DBN 
E 2479 


2478 W=ÿ:2=2+1:1F 24 THEN Z=1 >XB 
2489 IF Z=1 AND P1(1)-9 THEN H1=1:27=2+1 )ET 
2499 IF Z=2 AND P1(2)=9 THEN H2=1:Z:2+1 DEX 
2599 IF Z=3 AND P1(3)=9 THEN H3-1:27=7+1 )ER 
2519 IF Z=4 AND P1(4)=ÿ THEN Hé={:7:1 >CK 
2529 IF Z=1 AND V=8 AND P1(1)-9 THEN 2489 )EZ 


2530 IF V=1 AND 2=1 THEN V=Q:H1=9:H2=9:H3=9:H4=g:GOTO 2 >BK 
299 


2549 N=9:FOR 1=56 TO 62:N=N+1:1F N=7 THEN N=6 LH 
2559 IF P(Z)=1I AND A=N THEN 258 XV 
2569 NEXT )LE 
2578 GOTO 2619 )NA 
2589 C=#:C=C(Z)+1 > LB 


2598 IF C=C(1)AND P1(1)=2 OR C=C(2)AND P1(2)=2 OR C=C(3 DLE 
IAND P1(3)=:2 OR C=C(4)AND P1(4)=2 THEN W=1 ELSE W=2 

2699 1F W=1 THEN 2459 ELSE IF W=2 THEN 2499 >GQ 
2619 C=8:C=C(Z):1=9:FOR [=1 TO À >YN 
2629 IF C+I=C(1)AND P1(1)=1 OR C+1=C(2)AND P1(2):1 OR C DLP 
+I=CC3)AND P1(3)=:1 OR C+I=C(4)AND P1(4)=1 THEN 0=1 


2638 NEXT )LC 
2649 GOSUB 3579:GOSUB 3619:G0SUB 3659 )EW 
2658 IF O=1 THEN 0=ÿ:GO0TO 2459:ELSE 2499 )FC 
2669 FOR Z:5 TO 8:1F A=6 AND P(Z)-9 THEN 2684 JU 
2679 NEXT Z - >XH 
2689 EL=VAL(E1$(Z)):E2=VAL(E2$(Z)):E4=VAL(E4$) PE 
2699 WHILE INKEY$="" >PG 


2789 1F P(Z)=9 THENUFENETRE, EL, E2,9:GOSUB 3439:GOSUB 38 >KJ 
1S:ÜFENETRE, E1,E4,9:G0SUB 3439:GOSUB 3819 

2719 IF K=1 OR PB=4 THEN P(2)-1:A=9:D3=6:C(Z):15:P1(2)= WE 
1:PB=PB+1:RETURN 

2729 IF S=1 THENGFENETRE, E1,E2,9:7=9:S-=g:V=1:G0TO 2749 DAF 
2738 WEND:GO0TO 269ÿ NL 
2749 FOR 1=5 TO 8:1F P{(1)=1 OR P{(1)=2 THEN Z=1:GOTO 2 )2X 
768 


2759 NEXT )LF 
2769 IF PB=1 AND V=9 THEN RETURN ELSE 2919 HR 
2779 WHILE INKEY$="" )PF 


2789 1=ÿ:1=P(Z) :A4=VAL(A4$(1)):AS=VAL(AS$(T) ): AG=VAL(AG DNQ 
$C1)) :üuFENETRE, A4, A6,8:GOSUB 3439:G0SUB 3819:üFENETRE, A 
4,A5,9:GO0SUB 3439:GOSUB 3819 


2798 1F K=1 THEN RETURN >RK 
2899 IF S=1 THEN S-9:GO0T0 2849 >XH 
2819 WEND:GOTO 2778 NJ 


2829 IF 2:25 THEN H5:1 ELSE IF Z-6 THEN H6:1 ELSE IF Z=7 >HB 
THEN H7:1 ELSE IF 2-8 THEN H8={ 


2839 IF H5=1 AND H6=1 AND H7=1 AND H8-{ THEN RETURN ELS BH 
E 284ÿ 


2849 W=8:2=2+1:1F 2)8 THEN 2=5 )YC 
2858 IF Z=5 AND P1(5)=ÿ THEN H5=1:7=Z+1{ )EG 
2868 1F Z=6 AND P1(6)-9 THEN H6=1:2=2#1 )EL 
2879 IF Z=7 AND P1(7)=9 THEN H7-1:7=2+#1 )EQ 
2889 1F Z=8 AND P1(8)-ÿ THEN HB=1:7:=5 CN 
2899 IF Z=5 AND V=9 AND P1(5)=g THEN 2859 )EV 


2998 1F V=1 AND 2-5 THEN V=9:H5:8:H6:8:H7:9:H8=9:GO0T0 2 )BJ 
669 


2918 N=8:FOR 1=56 TO 62:N=N+1:1F N=7 THEN N=6 DEN 





2929 IF P(Z)=1 AND A=N THEN 2959 

2939 NEXT 

2949 GOTO 2988 

2958 C=H:C=C(Z1+1 

2968 IF C=C(5)AND P1(5)=2 OR C=C(6)AND P1(6):2 OR C=C(7 
IAND P1(7)=:2 OR C=C(B)AND P1(8)=2 THEN W=1 ELSE W=2 
2978 IF W=1 THEN 2829 ELSE IF W=2 THEN 2779 

2988 C=ÿ:C=C(2):1=9:FO0R 1=1 TO A:IF C+1356 THEN C=C-56 
2999 IF C(Z)=14 THEN 0=1 

3499 IF C+I=C(5)AND P1(5)=1 OR C+I=C(G)AND P1(6)=1 OR C 
+1=C(7)AND P1(7)=1 OR C+1=C(8)AND P1(8)=1 THEN O=1 

3919 NEXT 

3929 GOSUB 3539:GOSUB 3619:G0SUB 365 

3439 1F 0=1 THEN 0=ÿ:GOTO 2825:ELSE 2778 

3949 FÜR Z=9 TO 12:1F A=6 AND P(Z)=ÿ THEN 3969 

3459 NEXT 2 

3969 E1=VAL(E1$(Z)):E2=VAL(E2$(2)):E5=VAL(ES$) 

3979 WHILE INKEY$="" 

3989 1F P(Z)=8 THENÜFENETRE,E{,E2,9:GOSUB 3439:GOSUB 38 
LA: 0FENETRE, E1,E5,9:GO0SUB 3435:G0SUB 3819 

3899 IF K=1 OR PR=9 THEN P(Z)=1:4=9:D3=6:C(2)=29:P1(2)= 
L:PR=PR+I:RETURN 

3199 IF S=1 THENGFENETRE,E1,E2,9:2=ÿ:S=9:V=1:G0TO 3129 
3119 WEND:GO0TO 3979 

3129 FOR 1=9 TO 12:1F PI(I)={ OR P1(1)=2 THEN Z=1:GOTD 
3149 

3139 NEXT 

3149 IF PR=1 AND V=8 THEN RETURN ELSE 329ÿ 

3159 VHILE INKEY$="" 

3169 1=8:1=P(Z):A7=VAL(A7S$(1)):A8=VAL(ABS (1) ) : AG=VAL(A9 
$(1)):üFENETRE, A7, A9,8:GOSUB 3439:GOSUB 3812:üFENETRE, A 
7,48,8:G0SUB 3439:GO0SUB 3819 

3179 IF K=1 THEN RETURN 

3189 IF S=1 THEN S=:G0T0 322ÿ 

3199 WEND:GOTD 3158 

3289 IF Z=9 THEN H9=1 ELSE IF Z=19 THEN HA: ELSE IF Z= 
11 THEN HB={ ELSE IF 2:12 THEN HC=1 

3219 1F H9=1 AND HA=1 AND HB=1 AND HC={ THEN RETURN ELS 
E 3229 

3229 W=ÿ:2=2+1:1F 212 THEN Z=9 

3239 IF Z=9 AND P1(9)-ÿ THEN H9=1:27=2+1 

3249 IF Z=19 AND P1(19)=9 THEN HA=1:2=2+1 

3254 IF Z=11 AND P1(11)=9 THEN HB=1:7=2+1 

3269 IF Z=12 AND P1(12)=ÿ THEN HC:1:2:9 

3279 IF Z=9 AND V=$ AND P1(9)=ÿ THEN 3239 

3289 IF V=1 AND Z=9 THEN V=9:H9=ÿ:HA=9:HB=9:HC=9:G0TO 3 
949 

3299 N=9:FOR 1=56 TO 62:N=N+1:1F N=7 THEN N=6 

3389 IF P(Z)=I AND A=N THEN 3339 

3319 NEXT 

3329 GOTO 3369 

3339 C=f:C=C(Z)+1 

3349 IF C=C(9)AND P1(9):2 OR C=C(1B)AND P1(18)=2 OR C=C 
(11)AND P1(112=2 OR C=C(12)AND P1(12)=2 THEN W=1 ELSE W 
22 

3359 1F W=1 THEN 3299 ELSE IF W=2 THEN 3159 

3369 C=8:C=C(Z):1=9:FOR 1=1 TO A:IF C+1356 THEN C=C-56 
3379 IF C(2)=28 THEN 0=1{ 

3389 IF C+I=C(J)AND P1(9)=1 OR C+1=C(18)AND P1(18):1 OR 
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C+I=C(11)AND P1(11)<1 OR C+1=C(12)AND P1(12)=1 THEN 0= 
Î 


i 3398 NEXT 
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3499 GOSUB 3539:G0SUB 3579:GOSUB 3658 

3419 IF 0=1 THEN 0=9:GO0T0 3260:ELSE 3158 

3429 FOR AT=i TO 9SY:NEXT:RETURN 

3438 FOR AT=1 TO 4BB:NEXT:RETURN 

3449 FOR AT=i TO 199:NEXT:RETURN 

3459 FOR 1=1 TO 4:1F P(Z)=1 AND C(Z)=CCH)AND PI(1)=1 TH 
EN P1(1)=g:C(1)=ÿ:RC1)=1:Q=PCT) :AL=VAL(AI$(Q)) : A2=VALCA 
2$(Q)):AS=VAL(A3$(Q)) :P(1)=8:GOSUB 2168 :RETURN 

3469 NEXT:RETURN 

3479 FOR 1=5 TO 8:1F P(Z)=1 AND C(Z)=CCI)AND PI(I)={ TH 
EN PI(1)=g:C(I)=G:RC1)=1:Q=PCT) : A4=VAL(A4S (Q) ) : AS=VALCA 
5$(Q)):AG=VAL(AGS(Q)):P(1)=4:GOSUB 2164 :RETURN 

3489 NEXT:RETURN 

349$ FOR 1=9 TO 12:1F P(Z)=1 AND C(Z)=C(I)AND PH(I)=1 T 
HEN PICI)=Q:C(I)=B:R(T)=1:Q=P CI) :A7=VAL(A7$ (Q)) :AB=VAL( 
A8$(Q)):A9=VAL(A9$(Q)):P(1)=9:GOSUB 2164:RETURN 

3549 NEXT:RETURN 

3518 FOR 1=13 TO {6:1F P(Z)=1 AND C(Z)=C(I)AND P1CI)=1 
THEN PICL)=8:C(1)=@:R(1)=1:Q=P C1) : AAZVALCAAS (Q) ) : AB=VAL 
(AB$(Q)):AC=VALCACS(Q)):P(1):9:GOSUB 2168:RETURN 

3529 NEXT:RETURN 

3538 C=8:1=g:C=C(Z):FOR 1=1 TO A:1F C+1356 THEN C=C-56 
3549 FOR N=1 TO 4:1F P1(N)={ AND C+I=C(N)+1 THEN O:1:RE 
TURN 

3559 IF C+1=56 AND C(N)=56 AND IA THEN 0=1:RETURN 

3569 NEXT N:NEXT I :RETURN 

3579 C=B:1=9:C=C(Z):FOR 1=1 TO A:IF C+1356 THEN C=C-56 
3588 FOR N:5 TO 8:1F P1(N)=1 AND C+I=C(N)+1 THEN O:1:RE 
TURN 

3599 IF C+1=56 AND C(N):56 AND IA THEN 0=1:RETURN 

3698 NEXT N:NEXT I :RETURN 

3619 C=#:1=9:C=C(Z):FOR 1=1 TO A:IF C+1356 THEN C=C-56 
3629 FOR N=9 TO 12:1F PIC(N)=1 AND C+I=C(N)+t OR P(Z)+1) 
56 THEN 0=1:RETURN 

3639 1F C+1=56 AND C(N)=56 AND IÇA THEN O={:RETURN 

3649 NEXT N:NEXT L:RETURN 

3659 C=ÿ:1=g:C=C(Z):FOR 1=1 TO A:IF C+1)56 THEN C=C-56 
3669 FOR N=13 TO 16:1F PI(N)=1 AND C+I=C(N)+1 OR P(Z)+1 
)56 THEN 0=1:RETURN 

3679 IF C+1=56 AND C(N)=56 AND [<A THEN O=1:RETURN 

3689 NEXT N:NEXT I :RETURN 

3699 C=ÿ:1=9:C=C(Z):FOR 1=1 TO A:1F C+1356 THEN C=C-56 
3789 FOR N=1 TO 4:1F C+I=C(N)AND PI(N)=1 THEN PI(N)=g:Q 
=P(N) :A=VAL(ALS (Q) ) : AZ=VAL(A2$(Q) 1 :AS=VALUA3$ (A) ) :PCN) 
=f:C(N)=G:RN)=1:PRI={:RETURN 

3719 NEXT N:NEXT I :RETURN 

3729 C=G:1=ÿ:C=C(Z):FOR 1=1 TO A:IF C+156 THEN C=C-56 
3738 FOR N=5 TO 8:1F C+I=C(N)AND PI(N)={ THEN PI(N)=9:Q 
=P(N) :A4=VAL(A4$(Q) ) : AS=VAL (ASS (Q) ) : AG=VAL(AG$ (Q)):P(N) 
=B:C(N)=S:R(N)=1:PRI=1:RETURN 

3749 NEXT N:NEXT L':RETURN 

3759 C=ÿ:1=9:C=C(Z):FOR 1=1 TO A:IF C+1356 THEN C-=C-56 
3769 FOR N=9 TO 12:1F C+I=C(N)AND PICN)=1 THEN PI(N)=9: 
Q=P(N) :A7=VAL(A7$(Q) ) : AB=VAL (ABS (Q) ) : AG=VAL(A96 (Q) ):PN 
)=f:C(N)=G:R(N)={:PRI=1:RETURN 

3779 NEXT N:NEXT I :RETURN 
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3789 C=ÿ:1=9:C=C(Z):FOR 1=1 TO A:IF C+1)56 THEN C=C-56 WA 4989 NEXT 2, | HG 





3799 FOR N:13 TO 16:1F C+I=C(N)AND PI(N)=t THEN PI(N)=8 GP 4999 1=9:P2(13)=8:P2(14)=9:P2(15)=8:P2(16)=8:FOR 1:13 T )AH 
:Q=PN) : AA=VAL CAAS (Q) } : AB=VAL(ABS (Q) ) :AC=VAL(ACS (Q)) :P( 0 16 

N)=@:C(NI<G:R(N)=1:RETURN 4199 IF P(1)>9 AND P(1)<56 THEN P2(1)=P(1) GG 
3899 NEXT N:NEXT I:RETURN UN 4119 NEXT )KH 
3819 CLEAR INPUT:IF INKEY(47)=ÿ THEN S=:1 DHL 4128 1=9:FOR 1=13 TO 15 >P4 
3828 IF INKEY(76)-8 OR INKEY(9)=9 THEN K=1{ DHT 4139 FOR JJ=1+1 TO 16 )NH 
3839 GOSUB 3438:RETURN )RY 4149 1F P2(JJ))P2(I)THEN P3=P2(JJ):P2(JJ)=P2(1):P2(1)=P >BM 
3649 Z2=13:FO0R 2:13 TO 16:1F A:6 AND P(Z)=ÿ THEN 3869 )RP 3 

3859 NEXT Z »XJ 4159 NEXT JJ )EC 
3868 Ef=VAL(E1$(Z)):E6=VAL(EG$) )ZY 4169 NEXT | )VG 
3879 >ZA 4178 1=8:FOR 1=13 TO 16 )PC 
3889 IF P(Z2)=ÿ THENGFENETRE,E1,E6,8:K=1 )HK 4189 IF P(I)=P2(13)THEN Z=1:GOTO 4299 >DQ 
3894 IF K=1 OR PN=8 THEN P(Z)=1:A=ÿ:D3=6:C(2)=43:P1(2)= XX 4199 NEXT:GOTO 4229 )NX 
L:PN=PN+1:RETURN 4289 GOSUB 3539:G0SUB 3579:G0SUB 3619 )EL 
3999 W-9:2-=13:FOR Z=13 TO 16 )VD 4219 IF 0=1 THEN 0-=9:GOTC 4228:ELSE GOTO 4269 )LK 
3919 IF P1(Z2)-ÿ THEN 3948 )RX 4228 1=13:FOR 1=13 TO 16:1F P1(1)=1 THEN Z=1:PC=2:G0T0 )CC 
3924 IF P(Z):56 AND A: THEN GOSUB 4328 ELSE 3949 )NE 4268 

3939 IF W=2 THEN RETURN RU 423$ NEXT >LA 
394$ NEXT >LH 4249 72=1+1:1F 216 THEN Z=PC:0=1:RETURN )HD 
3958 W=ÿ:7-13:FOR Z=13 TO 16 NV] 4259 IF P1(Z):9 THEN 4248 )RN 
3968 IF P1(Z):9 THEN 4928 )RR 4268 C=ÿ:C=C(Z):1=9:FOR 1=1 TO A:IF C+1)56 THEN C=2C-56 WU 
3979 GOSUB 4328:1F W=2 THEN 3989 ELSE 4929 )GF 42179 IF C(2)=42 THEN O=1 )QZ 
3089 GOSUB 3532:GOSUB 3579:GOSUB 3619:GOSUB 4359 )QH 4289 IF C+1=C(13)AND P1(13)=1 OR C+I=C(14)AND P1(4)=1 22 
3999 1F 0-1 THEN 0-9:G0TO0 4929 »XC OR C+I=C(L5)AND P1(15)=1 OR C+1=C(16) AND P1(16)=1 THEN 

4909 GOSUB 3699:GOSUB 3729:GOSUB 3759 )EU 0=1 

4918 IF PRI=1 THEN W=Q:RETURN ELSE 4929 )FU 429$ NEXT )LG 
4929 NEXT >KH 4399 GOSUB 3539:G0SUB 3574:G0SUB 3619 )EM 
4838 I=G:N=1:W=0:7=13 )QT 4319 IF 0=1 THEN 0:9:GOT0 424ÿ ELSE RETURN )JV 
4948 FOR 1:57 TO 62:N=N+{:IF N=7 THEN N:6 >GQ 4329 C=#:C=C(Z)+1 )LV 
4959 FOR 2:13 TO 6 >LC 4338 IF C=C(13)AND P1(13)=2 OR C=C(14)AND P1(14)=2 OR C DPF 
4960 IF P(Z)=] AND A=N THEN GOSUB 4329 >DW =C(15)AND P1(15)=2 OR C=C(16)AND P1(162=2 THEN W=1 ELSE 
497@ 1F W=2 THEN RETURN )RR W=2:RETURN 


4344 RETURN )FE 
4359 C=g:C=C(Z):1=8:FOR 1=1 TO A:1F C+1356 THEN C=C-56 >WU 
4369 IF C(2)=42 THEN 0=1 )Q7 
4379 IF C+1=C(13)AND P1(13)1=1 OR C+I=C(14)AND P1(14)=1 )2Z 
OR C+1=C(15)AND P1(15)=1 OR C+1=C(16)AND P(16)=1 THEN 

0=1 

438 NEXT )LG 
4399 RETURN )FK 
4499 ENT-1,6,3,1,1,-12,2:ENV 1,18,5,3 )CF 
4419 SOUND 2,59,68,19,, t:RETURN )ZJ 
4428 IF P(Z)=1 AND D3=6 THEN 4438 ELSE RETURN KE 
4435 SOUND 1,956,1,19,9,9,31:RETURN )CY 
4449 ENV 1,189,-3,1:ENT 1,9.1,-2,1:FOR JJ=1 TO 2:D=34:D >HQ 
1=28:X=388:Y-228:F0R 1=1 TO 8 

4459 C=INT(RND#15):1F C=1 OR C=7 THEN C=C+1 )JD 
4469 PLOT X,Y,C:DRAWR D,B:DRAUR 9,-D1:DRAVR-D,B:DRAWR 9 >HV 
,D1:IF 1325 THEN D=D+8:D1=Di+4:X=X-4:Y=Y+2 ELSE D=D-8:D 
1=D1-4:X=X+4:Y=Y-2:SOUND 1,149,19,1,1,1 

4478 FOR AT=1 TO 199:NEXT AT:NEXT L:NEXT JJ:RETURN DVE 
4489 IF GA=1 AND JC4 THEN CLS#1:2X-2:2Y=19:A$="BRAVO:àà DKF 
| “:GOSUB 4599:2Y=12:A$=JOUEURS(1):GOSUB 4599:2Y=14:A$="T 
U:ES:LE":G0SUB 4599:27Y=16:A$="VAINQUEUR" :GOSUB 4598:CAL 

L &BB18:RETURN 

4499 1F GA={ AND J=4 THEN CLS#1:2X=1:2Y=18:A$="JE: SUIS: >BD 
LE":GOSUB 4599:2Y-12:A$="VAINQUEUR" :GOSUB 4599:CALL &BB 
18:RETURN 








48 





4599 1F GA=2 THEN CLSH1:2X=1:2Y=19: A$="CLASSEMENT":G0SU )TU 
B 4599:2Y=12:A$="1:"+JOUEURS (1): GOSUB 4599:2Y:14:A$="2: 
*+JOUEUR$ (2) :GOSUB 4599:CALL &BB18: RETURN 

4519 IF FIN=1 THEN CLSH1:2X=1:2Y=4:A$="LA:PARTIE":GOSUB >DA 
4598:2Y=6:A$="EST:FINIE":GOSUB 4598 

4529 NJ=VAL(NJS):1F ORD$="{"THEN NJ=NJ+1 >HK 
4538 2X=1:2Y=18:A$="CLASSEMENT" :GOSUB 4598:FOR 1={ TO N JA 
J'I$=STR$(I):A$=RIGHTS(I$, 1)+": "+ JOUEURS(1) :ZY=2Y+2:G0S 

UB 459B:NEXT 

4548 CALL &BB18:CLS#1:2X=1:2Y=19:A$="UNE : AUTRE" :GOSUB à >JG 
599:2X=2:2Y=12:A$="PARTIE:?":GOSUB 4598 


4558 A$=INKEYS:A$=UPPERS(A$) )XA 
4569 IF A$="O"THEN CLEAR:RUN"DADA" )CY 
4579 IF A$="N"THEN CALL # RU 
4588 GOTO 455$ NJ 


4598 FOR T=1 TO LEN(A$):SP=(ASC(MIDS(A$,T,1)))-48:TX=T- DUD 
1: AAS INT (198 #RND) : SOUND 1, AA,5,5 

4699 1F SP<ÿ OR SP>42 THEN SP:43 )YC 
4619 CALL AD, FNPO(ZX,ZY)+(TX#2),D4+(SP#16):NEXT T:RETUR DA 
N 


DATAS1-BAS 


18 " Creatour de P1,BIN 

29 

38 MODE 2:AD:&C999:NL=199 

49 FOR A=1 TO 122:B=8:FOR C=1 TO 15:READ A$ 

58 POKE AD, VAL("&"+A$):B=B+PEEK(AD) : AD=AD+{ 

69 NEXT:READ ES$:1F VAL("&"4E$) CB THEN 89 

79 NL=NL+{9:NEXT:SAVE"PL,BIN",B, &CO99, &729:CLS: END 

88 CLS:PRINT'LIGNE"NL;" INCORRECTE" : END 

98 ‘ 

198 DATA DD,5E,99, DD, 56,91, DD, 6E, 92,DD,66, 93, 96,98,C5,5D5 
119 DATA ES, 96,92, 1A,77,23,13,18,FA,E1,CD,26,BC,C1,19,61F 
128 DATA EF,C9, AD, 8F, AD, 8F,ED, ED, ED, ED, AD, AD, AD, AD, AC, Add 
139 DATA 8C,FC,FC,FC,SE, AD,5E, FC, DE, FC, DE, FC,5E, FC, 5E, ADI 
149 DATA AC, 8C,FC, FC, AD, 9F, AD, AD, FC, ED, FC, ED, FC, 5E, AD, A9F 
159 DATA FC, AC,4C,FC,FC, AD,8F, AD, AD, FC, ED, FC, ED, FC, 8F, A9F 
169 DATA FC, AD,AC,8C,FC,FC,FC, AD, FC, 9F,FC,CF, ED, ED, AD,B5F 
179 DATA 8F,FC,AD,FC,AC,FC,FC, AD, 8F, AD,FC,ED,FC,FC,CF,B71 
189 DATA FC, AD, AD, AD, AC, 8C, FC, FC, AD, 8F, AD, AD, ED, FC, ED, A9F 
198 DATA CF, AD, AD, AD, AD, AC, 4C, FC, FC, AD,9F,FC, AD, FC, ED, A8 
298 DATA FC,DE,FC,5E, AD, FC, AC, FC, FC, FC, AD, #F, AD, AD, ED, B89 
219 DATA ED, ED, CF, AD, AD, AD, AD, AC, 8C, FC, FC, AD, #F, AD, AD, A23 
229 DATA ED, ED,ED,CF,FC, AD, FC, AD, AC, OC, FC, FC, FC, FC, FC, CBC 
238 DATA FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC, FC, FC, FC, FC, EC4 
249 DATA FC,FC,FC,FC,FC,FC,FC,FC,FC,FC, FC, FC, FC, FC, FC, EC4 
259 DATA FC,FC,FC,FC,FC,FC,FC,FC,FC, FC, SE, FC, 5C, FC, FC, D86 
269 DATA FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,FC,5E, FC, 5C, AC, D36 
279 DATA FC,FC,5E,FC,5E,ED,FC,FC,FC,FC,FC, FC, FC, FC, FC, D79 
288 DATA FC,FC,FC,5E, AD, AD, ED, ED, FC,ED,FC,5E, FC, FC, FC, CBD 
298 DATA 5C,FC,FC,FC,5E, FC, SE, FC, DE, FC, DE, FC, 5E, FC, FC, CSE 
388 DATA FC,5C,FC, FC, AD, 8F, AD, 9F, ED, ED, ED, ED, AD, 8F, AD,9E5 
319 DATA AD, AC, AC, FC, FC, AD, 8F, AD, 9F, ED, ED, ED, ED, AD, 5E, A34 
328 DATA AD, AD, AC, 8C, FC, FC, AD, 8F, AD, 9F, ED, FC, ED, FC, AD, AB 
339 DATA FC, AD, FC, AC, 4C,FC, FC, AD,5E, AD, 9F, ED, ED, ED, ED, AD4 





49 


349 DATA AD, AD, AD, AD, AC, 4C, FC, FC, AD, 8F, AD, 9F, ED, FC, ED, 982 
359 DATA FC, AD,5E, AD, FC, AC, AC, FC, FC, AD, 9F, AD, DF, ED, FC, 9C1 
369 DATA ED, FC, AD,5E, AD, FC, AC, FC, FC, FC, AD, OF, AD, OF, ED, AA2 
378 DATA ED, ED, FC, AD, FC, AD, AD, AC, AC, FC, FC, AD, AD, AD, AD, B3D 
388 DATA ED, ED, ED, ED, AD,9F, AD, AD, AC, AC, FC, FC, AD, 8F, FC, AD2 
399 DATA SE, FC, DE, FC, DE, FC,5E, FC, 5E, AC, AC, FC, FC, AD, 0F, A32 
499 DATA FC, SE, FC, DE, FC, DE, FC, 5E, FC, 5E, AC, 5C, FC, FC, AD, B6F 
419 DATA AD, AD, AD, ED, ED, ED, DE, AD,5E, AD, AD, AC, AC,FC, FC, BG1 
429 DATA AD, FC, AD, FC, ED, FC, ED, FC, AD, FC, AD, FC, AC, GC, FC, C2A 
439 DATA FC, AD, AD, AD, 8F, ED, CF, ED, ED, AD, AD, AD, AD, AC, AC, AB4 
449 DATA FC, FC, AD, AD, AD, AD, ED, CF, ED, CF, AD, F, AD, AD, AC, EG 
459 DATA AC, FC, FC, AD, 9F, AD, AD, ED, ED, ED, ED, AD, AD, AD, AD, B22 
468 DATA AC, AC, FC, FC, AD, 0F, AD, 0F, ED, ED, ED, ED, AD, #F, AD, 945 
478 DATA FC, AC, FC, FC, FC, ADF, AD,0F, ED, ED, ED, ED, AD, AD, B22 
489 DATA AD, AD, AC, BC, FC, 5C, AD, 9F, AD, 0F, ED, ED, ED, ED, AD, 943 
499 DATA 5E, AD, AD, AC, AC, FC, FC, ADF, AD,2F, ED, FC, ED, FC, A52 
598 DATA AD,8F,FC, AD, AC, 8C, FC, FC, AD, 0F, AD, 0F, FC, DE, FC, 963 
519 DATA DE, FC,5E, FC,5E, FC, 5C, FC, FC, AD, AD, AD, AD, ED, ED, B79 
529 DATA ED, ED, AD, AD, AD, AD, AC, 4C, FC, FC, AD, AD, AD, AD, ED, ADF 
534 DATA ED, ED, ED, AD, AD, AD, AD, FC,5C, FC, FC, AD, AD, AD, AD, B7F 
549 DATA ED, ED, ED, ED, AD, 9F, AD, 9F, AC, AC, FC, FC, AD, AD, AD, A83 
559 DATA AD, ED, ED, FC, DE, FC, 5E, AD, AD, AC, AC, FC, FC, AD, AD, BBF 
569 DATA AD, AD, ED, ED, FC, DE, FC, 5E, FC, 5E, FC, 5C, FC, FC, AD, BBF 
579 DATA 9F,FC, AD, FC, ED, FC, DE, FC,5E, AD, FC, AC, AC, FC, FC, B2E 
588 DATA 99,FC,A6, 32,9F,01,32,9F, 21, 24,9F, CD,DI, BC, C9, 74C 
599 DATA 43,9F,C3, A2,9F,C3, AC,9F, C3, 8A, A2, C3,8C, A3, C3, 918 
648 DATA 6D,A1,59,41,47,C5,46,45,4E,45,54,52,C5,43, 48, 5BF 
619 DATA 41,52,47,C5,4E,45,54,54,4F,49,C5, 41,44, D2, 99, 58E 
629 DATA 14,99,80,49,81,01,12,41,44,52,45,53,53,45, 29, 28F 
639 DATA 45,52,52,4F,4E, 45,45, 46,49, 43,48, 49,45,52, 20, 424 
649 DATA 46,45,4E,45,54,52,45, 46,49, 43, 48, 49, 45,52, 29, 423 
658 DATA 59,41,47,45,41,52,47,55,4D,45,4E, 54,29, 49, 4E, 437 
669 DATA 43,0F,52,52,45, 43,54, FE, 92, C9, 8E, 91, 32,5F,9F, 541 
679 DATA 18,08,FE, 93,C9,3E, 09, 32,5F,9F,DD, 7E, 09, 32,69, 53C 
689 DATA 9F,FE, 89,28, 14,FE, 1, CA,59, AD, 3E, 12, 32,65, 0F,621 
698 DATA 3E,69,32,69,9F, 21,99,9F, 18, 2, DD, 6E, 82, DD, 66, 594 
799 DATA 83,22,61,9F,7E,FE, 67, 20, 16,23, 7E,FE, 31, 29, 19,53€ 
71 DATA 23,7E,FE, CO, 29,8, 23, 7E,FE, 7, 28, 2F,FE, DO, 28, 795 
728 DATA 2B,86,8F,21,66,9F, 78, 32,65,0F, 34,63,9F,FE, 08, 54E 
734 DATA 28,08, 3A,65,9F,47, 7E, CD, 54, BB, 23, 19, F9, 34, 69, 5DE 
749 DATA 9F,FE,99,C8,0E, C9, 3E, CO, B1,06, 7F, ED, 49, C9, 3A, 7 AD 
759 DATA 5F,9F,FE, 09, 28, 0C, 7E, FE, 7E, 26, 13,06,9F, 21, 75,518 
768 DATA 9F,18,C7,7E,FE, D9, 28, 07,06, 00, 21, 84,9F, 18,BB,62B 
779 DATA 23,22,61,9F, 3, 64,9F,FE, 89, 28,83, CD, 19, BD, 34, 588 
788 DATA 5F,9F,FE, 89, CA, EC, A1, C3,B3, AB, DD, 7E, 43,47, DD, BEB 
798 DATA 4E,92, ED, 43,61,9F,69,FE, 49, DA, 6C, AD, 18, 04, DE, 637 
899 DATA C4,18,29,FE, 80, DA, 77, 40, 18,04,0E, C5, 18, 12,FE, 682 
819 DATA C9, DA, 82, A8, 18,86,0E,C6,96,49,18,94,0E, C7, 06, 4EB 
829 DATA 80,99,67, 18,43, C6, 49,67, 22,61,9F, 3E,C8, 81,96, 5D6 
839 DATA 7F,ED, 49, 3A,5F,9F,FE, DA, CA, EU, A2,FE, 14, 24,61, 7DE 
849 DATA 9F,CA,53, A3, C3, DB,9F, 99, 09,09, 2A, 61,9F, 7E, 23,667 
859 DATA 4E, 23,46, 22,61,0F,ED, 43,9, A9, 32, B2, AG, 23, 7E, 67E 
868 DATA E5,F5, CD, BE, BC, F1,E1,FE,49,28,08,FE, 01, 28,08, AD 
879 DATA 96,93,18,06,96,1F,18,92,96,07,23,19,FD, 46, 23, 29C 
889 DATA 4E,3E,89,C5,E5, CD, 32, BC, E1, 23,46, 23,4E,E5, CD, 75E 
899 DATA 38,8C,3E,9F,E1,C1,E5,C5,F5, CD, 32,BC, F1, C1, 3D, 92C 
999 DATA 29,F6,E1,11,99, C9, ED, 4B, 6, AB, 3A, B2, AB, 23, 23, 722 
919 DATA 23, ED, At, 28,99, E2,39, 41,93, 2B,ED, A9, 18,F3,C5, 728 
928 DATA F5,46,23, 7E,12,13,19,FC,F1,C1,23,0B,0B, 18,E3,5F3 





939 DATA 2A,61,9F,23,7E,FE,99,28,98,FE,91,28,98,3E, 81,467 

948 DATA 18,96,3E,9F, 18, 92,3E, 93,23, 46,293, 4E,F5,E5,CD, 447 

959 DATA 32,BC,E1,F1,3D,29,F2, 23,23,23,23,E5,C1, 93, GA, 64E 

968 DATA 67,843,9A,6F,CD, 3E, BC, 3A,69,9F,FE,99,C8,C3, 17,683 

979 DATA A9, FE, 93, C9, DD, 66,45, DD,6E, 84, DD, 56,43, DD, 5E, 769 

988 DATA 82,ED,53,61,9F, DD, 7E, 99,FE, 9,28, 1F,FE,91,28,649 

998 DATA 29,FE,92,28,24,FE,93,28,25,FE, 94,28,29,FE, 95,518 

1999 DATA 28,2A,FE,96,28,2E,FE,97,28,2F,C3,C3,9F,CD, 29,623 
1918 DATA BC, 18,2D,CD, 29,BC, CD, 29, BC, 18,25, CD, 2, BC, 18, 65A 
1429 DATA 29,CD,29,BC, CD, 26, BC, 18,18,CD,26,BC, 18, 13, CD, 64F 
1938 DATA 26,BC,CD,23,BC,18,8B,CD, 23,BC, 18,96, CD, 23,BC,627 
1949 DATA CD, 29,BC,ED, 5B,61,9F, 7D, 12, 7C,13,12,C9,99,99,5F3 
1958 DATA 99,09,00,09,90,09,09,09,2A,61,9F,DD,5E,94,DD, 346 
1960 DATA 56,95,ED,53,E8, A1, 7E,F5,23,7E,32,E5, A1, 3C, 32, 75E 
1979 DATA E6,A1,23,4F, 23,46, 23,3E, 9, BA, 28,97, ED,5B,E8, SDB 
1984 DATA 41,23, 18,96, BA,29,F6,5E,23,56,ED,53,E8, A1,F1, 743 
1999 DATA 23,ED,A1,28,4C,E2, 72, A2,93,2B, CD, 45, A2, ED, AG, 74A 
1198 DATA 18,F8,C5,F5,46,29,7E, 7F,CD, 45, A2, 12,13, 19,F8, 799 
1119 DATA F1,C1,23,9B,9B,18, DC, 32, E7, A1, 3A,E6, A1, 3D, 28, 6BF 
1129 DATA 97,32,E6, A1, 3A,E7, A1,C9,S3A,E5, A1, 32,E6, A1, 22, 7E6 
1139 DATA EA,A1,2A,E6, A1,CD, 26, BC, 22,E8, A1, ED, 5B,E8, A1, 969 
1149 DATA 2A,EA, A1, 3A,E7, A1,C9,3A,68,9F,FE,99,CB,C3,17,819 
1159 DATA A5,99,00,09,00,09,00,00,00,09,06,00,00,00,00,0A9 
1164 DATA 99,FE,93,C9, DD, 7E, 98,32, 7C, A2,FE, 92, DA, GB, A2, 783 
1179 DATA C3,C3,9F,DD, 46,93, DD, 4E, 92, ED, 43,61,9F, DD, 46, 7CB 
1188 DATA 95,DD,4E, 94, 9A, 32, 7B, A2,FE,08,CA,C3,9F,FE, fD, 6C2 
1199 DATA 38,43,C3,C3,9F,93, 4A,6F, 93, 0A,67,3A, TB, A2,4F, 4F6 
1299 DATA 46,09, 11,7E, A2, ED, B9, A, 7C, A2,FE, 99, 26, {D, E, 59D 
1219 DATA 6A,32,5F,9F,ED, 4B,61,9F, 78,C3,69, 49,21, 7E, A2,6FE 
1229 DATA 3A,7B,A2,47,11,99,C8,CD, 77, BC, 28, 8D, 24,61,9F,5CE 
1239 DATA CD,83,BC,28,95,CD, 7A,BC, 18,93, CD, 7D, BC, 34, 7C, 713 
1249 DATA A2,FE,99,C8,C3, 17,A8,01,98,00,19,FE,93,C9,DD, 691 
1259 DATA 7E,99, 32,08, A3,FE, 92, DA, 1D,A3,C3,C3,9F, DD, 4E, 745 
1269 DATA 92, DD, 46,83, ED, 43, SA, A3, 8E, 08, BG, 38,96, 9, 38, 52A 
1279 DATA 93,C3,C3,9F, ED, 4B, SA, A3, DD, 6E, 94, DD, 66,95, 22, 6C6 
1288 DATA 61,9F,34,98, A3,FE, 99, 28, D, 3E, 14, 32,5F,9F, ED, 587 
1298 DATA 4B,61,9F,78,C3,69, A9, ED, 4B, 9A, A3,3E, 99, 11,6E,628 
1389 DATA A3,EB,ED, A9, 2B,E2,65, A3, 18,F8, 34, 08, A3, FE, 99, 823 
1319 DATA C8,C3,17,A0,00,00,80,00,00,09,00,09,00,09,09,242 


DATAS2 BAS 


19" Creataur de FI,BIN 

28 

38 MODE 2:AD=&C098:NL=:199 

48 FOR A={ TO 229:B-ÿ:FOR C=1 TO 15:READ A$ 

54 POKE AD, VAL("&"+A$) :B=B+PEEK(AD) : AD=AD+1 

69 NEXT:READ E$:1F VAL("&"+E$) CB THEN 89 

79 NL=NL+19:NEXT: SAVE"P2.BIN",B, &C#99, &DG6D:CLS: END 

88 CLS:PRINT"LIGNE"NL;" INCORRECTE" : END 

98 ‘ 

189 DATA 67,31,C9,D9,91,59,9F,0B,99,E8,91,4F,F9,F8,91,5AE 
119 DATA 4F,F#,B4,91,4F,F4,94,01,4F,F9,3C,91,4E,F8,E9, 762 
129 DATA 3C,81,4E,F9,B4,3C,91,4E,F9,94,3C, 91, 4E,FQ, 3C,5F5 
139 DATA 3C,81,4D,F4,E8,3C,3C,91,4D,F9,B4, 3C, 30, 91, 4D, 58A 
149 DATA F@,94,3C, 3C,91,4D,F8,3C, 3C,30,81,4C,F4,E8,3C,647 
159 DATA 3C,3C,91,4C,F9,B4,3C,3C,3C,F9,F8,F8, BD, 39, 39, 6FD 


50 





168 DATA 79,89,39, 39,30, F9, 39, 39, 39, F4, 38, 39, 39, FA, 38, 509 
178 DATA 39,39, F8, 89, 39, 79,01,05, F9, 89, 30, 79, F0, 39, FO, 6F6 
188 DATA 39,89, 39, 30,30, F9, 39, F0, 39, FD, F8, 30, F8, F9, 38, 700 
198 DATA F9, 39,9, 70,F8, 30,01, 11,F9,94, 3, 3C, 30, 91,84, 5AF 
289 DATA F9,39,F9,39,F, 30, F9, B9,F9, 79, 30, B9,F8, FO, 30,950 
219 DATA F8, F9, 79, 30,89, FO, 30, F8, 38,01,05, F0, 39, F9, 39, 786 
229 DATA F8,39,F9, 39,4, 30,F9,B9, F6, 39, F9, 30, F8, RO, 30,919 
239 DATA 79,F9,38,FD,39,F0,38,B0,78,01,11,F0,01,94, 30,633 
249 DATA 81,84,F0,30,F9,39,F0,39,B9,FO,FO,FD,38,FD,FE,8F5 
259 DATA F9, 30,F8,F0,F9, 30, F0, FO, 38,01,06, F0, B9, 79, FO, 937 
268 DATA F9,F9,39,F9,39,F9,30,B9, F9, FO, 30, FO, 38, F8, 39,959 
278 DATA F9,39,F0,30,F4,30,F9,B9,38,91,11,F9,E0,91,04,717 
289 DATA 3C,F8,F9,F9,B9, 39,39, F9, B9, 30, 70, FGF, RO, 79, 95C 
299 DATA F9, F0,80,78,F0,F0,B0, 70,F0,F4,30,39,81,05,F0,936 
389 DATA 39,F0,F9,F8, 89, 30, 30, 79, B0, 39, 70, FO, BE, 79, B9, 899 
319 DATA 79,89, 79, B6, 7, B0, 70,89, 79, F0, 30, 70,81, 11, FO, 782 
329 DATA B4,91,84,3C, F4, F8, F9, B9, 70,FD, FO, BG, 79, 70,F0,945 
339 DATA F,89,78,F0,F0,80,79,F0,F8,B0, 79,F0, F9, FO, B9, BOS 
348 DATA 79,01,84,F0,30,F9,F0, FO, RO, 78,B9, 70, B9, 70, 79,835 
359 DATA F9, B9, 79, B9, 79, B9, 39, 30, 79,80, 70, BO, 79,B9, 70,818 
369 DATA 39,81,11,F9,E0,91,04,C9,FO,FD,FO, 30, F8, FA,F, BA7 
379 DATA 39,FO,B8,F0,F0,30,F8,F0,F8, 30,F0, F9, FO, 39, F9, ADE 
389 DATA F9,39,F9,99,01,05,F9, 39, F0, 39, F9, 30, F8, 30, F0, 786 
399 DATA 39,F4,B0, F0, 89, 39, 79,F0,30, F0, 30,F9, 30, F9, 30, 699 
499 DATA F8,70,F9,39,91,11,F9,B4,91,04, 3C, F8, F9, FD, 38, 777 
419 DATA 79,F0,F9, 30,39, 30, FO, BG, 39, 79, FO, 39, 30, 39, FO, 799 
429 DATA B9, 39, 79,F9,B9, 39, 79,91, 05,F8, B9, 30, 79, FD, 98,6F6 
439 DATA F8, 30, F9, 39,39, 30, F0, F0, 30,F9,F9, 30, F0, 30, FO, ED8 
449 DATA B9,30,79,F0,79,F0,38,01,11,F8,B4,01,94,3C, 91,5C8 
459 DATA 4B,F6,E0,01,04,C0,41,FF, F0, 01,64, F9, ED, 01, 06, 732 
468 DATA CA,81,49,F9,B4, 01,96, 3C, 91,49, FD, 94, 91,06, 3C, 582 
478 DATA 91,49,F0,01,97,3C,91,48,F9,E0,91,07, 3,01, 48, 424 
488 DATA F9,B4,81,97,3C, 01,48, FD,94, 01,97, 30,91, 48,F8,532 
499 DATA 91,98,3C,01,29,F0,E8, FO, F9, F4,E0, 91, 22, F4, ES, 7D9 
599 DATA 81,88,30,1,29,FO,E9,D9,F9,FB, CO, 91,22, F8, Bû, 76D 
519 DATA 91,98,3C,91, 29, F9,E8,D9, F8, F0, CO, 01, 22, FD, 94, 74D 
529 DATA 91,88,3C, 91, 29, F4,E0, 48, F4, ED, 48,01, 22, F8, 91, 5AA 
539 DATA 99, 3C,91,29,FD,E0, 48, F0, E6, 48, 01,21,F9,E9, 91,689 
549 DATA 9,3C,81,29,FO,E0, 48, F9, 84, 48,01, 21,F8,Bû, 81,681 
559 DATA 99,30, 91,28, F9,E0, 0C,D9, 84, 48,91, 21, F9, 94, 01,585 
569 DATA 89,3C,91,29,F0,E9, 0C, CH, 6, 48,8, 91,28, F8,01,548 
578 DATA 9A,3C,81,28,F0,E8,0C,46,0C, 48, 6,01, 1F, F9, ED, 59F 
589 DATA 91,84,3C, 91,29, F0, EG, 00, 48, 0C, 48, DB, CB, 81, LE, 4BF 
599 DATA FO,B4,91,9A, 3C,01,28,F0,EB, 4C, 0, 4C, CG, C9, DO, 658 
649 DATA 81,1E,F9,94,91,0A, 3C, 91,29, FO, EB, C, 0C, DC, CB, 4BF 
619 DATA C9,D9,91,1E,F8,91,4B, 3C, 91, 1D,F9,E8, CO, CA, CO, 715 
629 DATA 81,84,0C,48,D9, 01, 1D,F9,E8, 91,08, 3C, 91,28, F8, 479 
639 DATA ES, 9C,0C, CA,CO, 6C, 48, CO, DB, 81, 1B, F9, B4, 81, 9B, 628 
649 DATA 3C,81,1D,F9,E0,CD, C9, CH, OC, 48, CH, CO, 84, CB, CB, 842 
659 DATA C9,91,1B,F4,E8,01,9B, C9,91, 29,FO,EB, 8C, 48, CC, 689 
669 DATA CB,84,C4,C8, C9, 01, 1B, FO, B4,01,9B, 3C, 91, 1D,FB,6AG 
679 DATA EG, CO,CB, CA, 4C, 48, CC, CO, 84, C4, CB, CO, #1, 1B, FO, BDC 
68 DATA B4,81,8B, 3C, 91, 29, F9, E8, 0C, 00, CA, CO, OC, 48, CO, 599 
699 DATA D9,91,1B,F9,E8, 01,98, C9,01, 1D, FO, EG, CO, CO, CO, 7BG 
708 DATA 91,96,8C,48,01,48,F9,E0,91,07,0C, DO, 91, 44, FE, 48D 
718 DATA E8, CP,C#, CO,91,07,4C,CB,91,47,F9,E0, 81,97, 8,629 
729 DATA 48,81,44, FD, E0, CO, CO, B4, 01,07, 0C, 48, DE, 01, LB, 5A6 
739 DATA F,E8,91,9D,C8,01,28,F9,84,01,08,0C, CO, 91, 18,521 
749 DATA F9,B4,91,9D,3C, 91, 1D,F9,E0,C8, CO, 84,91,98,C,5F5 





758 DATA 48,01,18,F9,94,91,9D,3C,91,29,F9,84,91,99,C, 3DA 
768 DATA D4,91,17,F9,91,9E,3C, 81, 1D,F#,C9,C4,C8,84,81,5F6 
778 DATA 99,9C,C9,81,16,F4,E8,91,9E, 3C,91,29,F#,84,91, 49D 
788 DATA DA, 8C,91,16,F9,B4,91,9E, 3C, 91, 1D, F4,C8,C8,C8, 564 
199 DATA 684,91,94,0C,84,91,95,9C,D9,81,15,F9,94,91,8E, 3A4 
898 DATA 3C,81,29,F9,64,91,94,9C,84,9C, C, 48,9C,84,D8, 426 
818 DATA 91,15,F9,91,9F,3C,91,1D,F9,E9,C9,C9,84,C, DC, 55C 
828 DATA 2C,48,84,89C,9C,C4,C9,C8,D9,91,14,F9,E0,891,9F,601 
839 DATA 3C,91,29,F8,84,9C,4C, BC, 4B,48,9C,8C, 48,C8, C9, 465 
848 DATA D8,81,14,F9,B4,91,9F,3C,91,1D,F9,C9,C8,C8,84,GAT 
85 DATA 91,94,0C,48,84,91,84,0C,D9,91,14,F9,94,91,0F, 367 
868 DATA 3C,81,29,F9,84,91,95,9C,C9,91,94,9C,D9,91, 14,399 
878 DATA F9,91,19,30C,91,1D,F9,C4,C9,C9,84,91,96,8C,91,523 
889 DATA B4,C0,91,14,F4,E4,91,19,3C,01,29,F0,84,91,95,491 
898 DATA 9C,CW,DG,C4,C4,C4,91,14,F6,B4,91,19,3C, 81, 1D,69C 
998 DATA F9,C9,C9,C9,84,91,94,0C,48,D8,F9,C4,C4,C4,81,B1A 
91# DATA 14,F0,94,91,19,3C,91,29,F9,84,9C,9C, OC, 48, DO, 4B6 
929 DATA F9,F9,C9,C9,C9,91,14,F9,91,11,3C, 91, 1D,F9,C9,741 
938 DATA C9,C9,84,91,94,0C,D9,91,18,F9,E0,91,11,3C,91,51D 
848 DATA 29,F8,84,91,94,9C,D9,91,18,F9,B4,91,11,3C, 91,481 
958 DATA 1D,F9,E9,C9,C9,84,91,94,0C,46,91,18,F9,94,91,5E8 
969 DATA 11,3C,41,29,F9,84,91,94,0C,48,91,18,F0,91,11,356 
978 DATA 3C,94,91,1D,F9,C9,C9,C8,84,91,95,0C, D9, 91,16, 59B 
989 DATA F4,E8,91,12,3C,91,29,F0,84,91,95,9C,D9,91, 16, 4AD 
999 DATA F#,B4,91,19,3C,68,76,91,29,F9,84,01,95, 9C, 48, 4C 
1889 DATA 91,16,F9,E0,91,19,C8,94,76,01,29,F0,84,91,95,55F 
1919 DATA 9C,46,91,16,F9,B4,01,11,3C,D9,91,29,F9,84,91, 4C3 
1928 DATA 96,9C,D9,91,15,F9,B4,91,11,3C,91,21,F0,84,91,481 
1939 DATA 96,9C,D9,91,15,F9,E8,91,11,C9,91,21,F9,84,91,531 
1949 DATA 46,9C,48,91,48,F0,84,91,96,8C, 46,91, 48,F0,84,42F 
1959 DATA 91,97,0C,D8,91,47,F9,84,91,97,0C,D9,91,47,F, 4BC 
1969 DATA 84,91,97,0C,48,91,12,FD,E8,91,12,C0,81,22,FD, 4A9 
1970 DATA 84,91,97,9C,48,91,12,F9,B4,91,12, 3C,91,22,F0,3F9 
1988 DATA 91,99,C9,91,12,F0,94,91,12,3C,91,24,F9,84,9C, 455 
1999 DATA 9C,0C,48,91,14,F9,91,12,3C,94,91,24,F9,84,91, 3E2 
1199 DATA 94,9C,D8,91,12,F8,E8,91,13,3C,91,23,F9,E0, 91,598 
1119 DATA 95,0C,D9,91,12,F4,B4,81,11,3C,68,68,91,23,F9, 4CA 
1128 DATA E9,91,95,9C,48,91,12,F9,94,891,12,3C, 78,81, 23, 3BC 
1139 DATA F9,84,81,95,0C,48,91,12,F9,91,12,3C,94,D9,91, 485 
1149 DATA 23,F9,84,91,95,9C,48,91,11,FH,E9,91,13,3C, 1,424 
1158 DATA 24,F9,84,91,96,9C,D9,91,19,F0,B4,91,11,3C,68, 4E6 
1169 DATA 66,91,24,F4,84,91,96,9C,D9,91,19,F4,94,91, 12, 48C 
1179 DATA 3C,78,91,24,F9,84,91,96,9C,D9,91,19,F0,91,12, 444 
1189 DATA 3C,94,D9,91,23,F4,E9,91,97,0C,48,91,9F,FQ,E9, 5D9 
1199 DATA 91,13,3C,91,24,F9,E9,91,07,0C,48,01,0F,F8,B4,455 
1289 DATA 91,11,3C,68,68,91,24,F9,E8,91,97,0C,48,891,8F,37F 
1219 DATA F9,94,91,12,3C,78,91,24,F9,E0,91,97,0C, 48,91, 49D 
1220 DATA 9F,F9,91,12,3C,94,D9,91,24,F8,E9, 91,97, 8C, 48,593 
1238 DATA 91,9E,F9,E9,91,13,3C,91,25,F0,E0,01,97,9C,48, 481 
1249 DATA 81,0E,F9,B4,91,11,3C,68,68,91,25,F8,E89,91,97,4CF 
1259 DATA ÿC,46,91,0E,F9,94,91,12,3C,78,91,26,F0,84,01, 44A 
1269 DATA 86,4C,D9,91,9E,F4,91,12,3C,94,D9,91,26,F8,84,52F 
1279 DATA 91,96,0C,D9,81,0D,F,E9,91,13,3C,91,27,F8,84, 4AD 
1289 DATA 91,96,0C,D4,91,9D,F4,B4,91,11,3C,68,68, 91,27, 3DB 
1299 DATA F8,84,91,96,0C,D8,91,9D,F9,E9,91,11,C9,94,78,613 
1380 DATA 91,27,F9,84,91,96,9C,D8,91,8D,F9,B4,81, 12, 3C, 489 
1319 DATA D8,91,27,F8,E9,91,95,0C,48,91,9E,F9,B4,91,12,4E8 
1329 DATA 3C,91,27,F4,81,99,C8,91,9D,F4,E8,91,12,C09,81, 4D0 
1338 DATA 27,F9,84,91,97,0C,48,91,47,F0,684,01,07,0C, 48, 4@F 





1349 DATA 91,47,F0,84,01,97, 80, 48,91, 47,F0,84,91, 87, 8C, 3EB 
1359 DATA 48,91, 27,F0,91,07,C8,F9,F8,91,13,C9, F9, F9, CB, 77C 
1369 DATA C9,84,91,97,0C,48,91,99,C8,FA,F8,01,14,C9, 91,529 
1379 DATA 88,F9,91,97,3C,F4,F8,01,13,3C, F6, F9, 30, 3C, 84,648 
1389 DATA 81,07,0C,48,91,99, 3C,FP,F,81, 14, 30,1, 8B, F9, 3CC 
1399 DATA 91,97, 3C, F9, 9,91, 13, 3C, FO, E0, 3C, 3C, 84, 01,07, 538 
1459 DATA 4C,48,91,09, 30, F8,E8, 01, 14,30, 01,08, F9, 81,06, 3BB 
1419 DATA 3C,94,F9,B4, 81, 12, 3C, 94, F8, B4, 30, 3C, 84, 91,87, 5FF 
1428 DATA 4C,48,91,08,C,94,F8, B4,81, 13,30, 94,91, 88, F9, 4AE 
1439 DATA 91,07,3C,F9,94,91, 13, 3C, F9, 94, 30, 3C, 84, 91,87, 4AB 
1449 DATA 9C,48,91,09, 3C,FD,94,81,14,3C,91,08,F8, 91,95, 36E 
1459 DATA 3C,68,68,F4, 91,12, 3C,68,68, F9, 30, 30, 3C, 84,1, 544 
1469 DATA 97,00, 48,91,87,3C,68,68,F0,01, 13, 3C,68,68, 1, 388 
1479 DATA 98,F9,91,96,3C, 78,E0,01,13, 3C, 78,8, 3C, 30, 3C, 4EF 
1489 DATA 84,91,97,0C, 48,01,98, 30, 78,E8,91, 14,30, 78,01, 347 
1499 DATA 98,F8,91,95, 3C,94, DS, B4,01, 12, 30,94, DB, B4, 3C, 5F5 
1599 DATA 41,00, C9,91,95,3C,94, DB, Ba, 01, 13, 3C,94, DA, 81, 4DD 
1519 DATA 98,F9,81,96,3C,F,94,91, 13, 3C, F9, 94, 3C, 84,91,554 
1529 DATA 8B, 80, 48,01,96, 3C,FD,94,91, 14,3C,91,89, F8, 11, 372 
1539 DATA 94,3C,68,68,F9,91, 12,3C,68,68, F9, 3C, 3C, 84,91, 54C 
1549 DATA 8B, DC, 48,91,94,30,68,68,F0,01, 13, 30,68, 68,94, 381 
1559 DATA 99,F9,91,95, 3C, 78, E0, 01, 13, 3C, 78,E8, C, 30, 84,537 
1569 DATA 91,0B,0C,48,91,05,3C, 78,E8, 91, 14, 3C, 78,91, 99, 2CD 
1579 DATA F9,91,94,3C, 94, D9, B4, 84, 12, 3C, 94, DA, B4, 3C, 3C, 628 
1584 DATA 84,91,0B, 0C, 48,91,04,3C,94, DB, Ba, 91, 13, 3C, 96, 421 
1599 DATA D6,91,99,F9,91,95,3C, F9, 94,91, 13,30, F9, 94, 3C, 5Aÿ 
1699 DATA 3C,84,91,0B, 00, 48,91,95,3C, FB,94,91, 14, 3C, Di, 338 
1619 DATA 9A,F4,3C,3C, 3C,68,68,F9, 91, 12, 3C, 68,68, FA, 3C, 5B9 
1629 DATA 3C, 30,84, 91,98, 80, 48, 30, 3C, 3C,68,68,F8, 81,13, 3E4 
1639 DATA 3C,68,68,91,0A,F9, 91,94, 30, 78, ED, 91, 13, 3C, 78,468 
1649 DATA ES, 3C, 3C, 30, 84,91, 0B, 80, 48, 81,94, 30, 78, E, 91,412 
1659 DATA 14,3C,78,91,0A,F9, 30, 3C, 3C, 94, DS, B4, 1, 12, 30, 4DE 
1664 DATA 94,D9,B4, 30, 3C, 3C, 84, 91, 0B, QC, 48, 30, 3C, 30, 94, 4F8 
1679 DATA D9,B4,91,13,3C,94,D9,91,0A,F9,91,04, 3C, FO,94,5F8 
1689 DATA 81,13, 3C,F9,94, 30, 3C, 30, 84, 81, 9B, AC, 48, Bt, f4, 371 
1699 DATA 3C,F9,94,81, 14,3C, 41,98, F9, 30, 3C,68, 68, F#, 01,546 
1799 DATA 12,3C,68,68, FD, 01,94, 30,91, 6D,CB, 3C, 3C, 68,68, 465 
1719 DATA F9,91,13,3C,68,68,91,4B, F8, 3C, 30, 3C, 78, EB,01,519 
1729 DATA 13,3, 78,E0,91, 14,30, 78,8, 81, 14, 30, 78,91, 9B, 425 
1738 DATA F8,3C,3C,94,D9,B4, 91, 12, 3C,94,D8,B4, 1, 13, 3C,637 
1748 DATA 94,D9,B4,01, 13, 30,94, DB, 91, 9B,F, 3C, 3C, 3C, F9, 66C 
1759 DATA 94,01,13,3C,F9,94,91, 14, 3C,F9,94,91, 14, 3C, 1, 48F 
1769 DATA AC, FH, 3C,68,68,F8,91,12,3C,68,68,F8, 91, 13, 3C, 557 
1779 DATA 66,68,F0, 01, 13,3C,68,68,51,0C, F9, C9, 94, 78, FD, 699 
1789 DATA 91,12,C0,94,78,F8,91,13,C8,94,78,F9,81,13,C9, 673 
1798 DATA 94,78,81,0C, F8, 3C, 3C, DS, F8, 91,13, 3C, D, FS, 91,652 
1899 DATA 14,3C,D9,F8,91,14,3C,DB,91,8C,F8, 30, 3C, FA, F9, 686 
1819 DATA 91,13,30,F9,F9,891, 14,3C,F8,F9,01, 14,3C, 91, 0D, 4C9 
1829 DATA F9,C9,C9,F4,F9,91,13,CD,F8,FO,01, 14,C8, FO, F9, 9BQ 
1839 DATA 91,14,C9,01,FF,F9,91,FF,F0,01,FF,F9,01,FF, FO, 805 
1849 DATA 81,ER,F9,B, 39,38,91,05,F8, 89, 39, 30, 79, FO, BO, 702 
1859 DATA 39,F9,89, 30, 39, 79, B9, 39, 39, 30, B9, 30, 39, 79,F0,658 
1869 DATA 39,36,39,01,31,FA, 36,80, 78,01,05,F8, 39, FO, 39,548 
1879 DATA F9,39,89,79,F0,39,F8, 30, F0, 30, F9, B9,FO, 39, F8, 959 
1888 DATA 36,F9, 79,30,B0,01,31,F8,39,F0,38,01,85,F8, 30,608 
1899 DATA F8,39,89,79,F0,39,F0,30, FO, 30,F9, 39,B0,F8,F8,958 
1999 DATA 39,F8,30,F0,F0,30,91,32,F8,30,F9,38,1,85,F9,6C9 
1919 DATA 39,39, 79,9, 79,F9,30,F9, 36,39, 70, F9, 30,30, F8, 718 
1929 DATA F9,36,39,70,F9, F9, 38,01, 32,F9,38,F9,39, 81, 05,649 
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1939 DATA F9,39,B9, 79,89, 79,F0,39,F0, 39, F0, 30,F0, 39, BO, 899 
1949 DATA F9, F8, 39, B9, 70, FD,F6, 30,01, 32, F8, 30,B9, 79, FO, BA3 
1959 DATA FS,39,F8, F9, 39, F9, 39, F9, 39,89, 76, F9, 30, FD, 39, 8D8 
1969 DATA F9,39,F4,B9, FO, 39,F8,39,F8,F9,30,91,91, F9, B9, BE2 
1979 DATA 39,39,F9,F4,F0,39,F0,89,30,F0, 39, F0, 9, 38,FA,919 
1989 DATA B9, 39, 39, 78,89, 38,38, 30, B6, 30, F0, 30, F0, RO, 30,699 
1999 DATA 79,91,85,F9,F,00,09,00,09,99,67,31,C9,D9,91, 491 
2898 DATA 1E, 42, 92,68, D9,91,0D,F8,81,06,C9,D8,91,89,F9,535 
2919 DATA EB,81,8B,F9,E8, C9, Cä,91,05,CC, CD,C8,91,98,F8, 78B 
2928 DATA Ba,91,04,FB,E8,CD,91,96,CC,CB, CO,01,87,F8,94, 738 
2938 DATA 91,89,F8,E8, C4,81,9B, CC, CP,91,96,F8,91,91,3C,56B 
294ÿ DATA 41,08, F4,E0,Ca,01,0D, CC, CA,8t,00,F8,E0, 01,81, 60E 
2959 DATA 3C,81,98,F9,C9,91,0E, CC, C8,D8, FD, F4, FO, B4,81, 7ED 
2468 DATA 81,3C,01,07,F8,E8,C4,01,0F,CC, CO, F8,FO, F9, 94, 7D9 
2978 DATA 81,91,3C,91,97,F8,C4,91,11,CC, DS, F9, F9,91,92, 58B 
2988 DATA 3C,91,06,FD,E8,01,12,CC,C8,F0,E0,91,92, 3C, 81, 5CA 
2998 DATA 96,F9,C4,91,13,CC, D, B4,01,92, 3C, 01,05, F0, 0,633 
2188 DATA 81,14,CC,C8,94,91,92,30,91,95,F0,CD,91, 14, CC, 513 
2118 DATA CB, 94,91, 02, 30,91,95,F9,C4,01,15,CC,94,91,92, 4CE 
2128 DATA 3C,91,04,FD,E8,01,16,CC,C8,91,92,3C, 81,04, FD, 4FS 
2139 DATA C9,91,16,CC,C8,94,91,91,3C,91,94,F9,C4,91,17,58E 
2148 DATA CC, 94,01,91,3C,F8,FP,F8,EB,C4,91,17,CC, C9, 81, 7B7 
2158 DATA 91,3C,F9,F9,F0,E0,81,18,CC,C8,91,01,3C,F#,F8, 7B8 
2169 DATA F9, E0,91,19,CC,91,91,C8,F9,F0,FD,C4,91, 19, CC, 7F2 
2179 DATA 94,F9,F8, FO, C4,8t,19,CC,94,F8,FD,F4, Cü,01, 19,958 
2188 DATA CC, 91,91,C9,F8,F8,FB,C4,01, 19,CC,D9, F9, F0, ED, 998 
2199 DATA C4,81,19,CC,C8,F9,F9,E9,91,1A,CC,C8,FO,F8,E8,9A1 
2288 DATA 91, 1A,CC,C8,F#,F8,E8,91,1A,CC,C8,FA,F9, E0, 81, 6DF 
2219 DATA 1A,CC,C6,FO,F0,E0, 01, 14,CC,C8,F8,F0,E0,91, 1A,6F8 
2229 DATA CC, C8,F9,FD,E,91,1A,CC, CB,F9,FO,E8,C4, 01,19, 9A1 
2239 DATA CC, C8,D9,F9,F4,C4,01,19,CC,94,D9, F9, FD, C4, 91, 9F7 
2249 DATA 19,CC,94,D9, F8, FP,C4,91,19,CC,94,D8, F8, F9, C4, 9DB 
2258 DATA #1,19,CC,94,D9,F9,E6,91,19,CC,C8, 81,91, 3C, DO, 6D6 
2268 DATA F9, C4,91,19,CC,C8,91,91,3C, DB, EB, 81, LA, CC, C9, 6F7 
2278 DATA 91,91,3C,FD,C4,91, 1A,CC,94,91,01,3C,EB,91, LA, 4A6 
2288 DATA CC, C8,94,91,81,30,Cû, 81, 1A,CC, CB, 81, 62, 3C, E0,5F8 
2299 DATA C9, CH,C4,91,17,CC,94,91,02,3C,FD,FO, FD, 8, CO, 86B 
2398 DATA C,91,14,CC,C8,94,91,92,3C,91,05,F0,E0, 1, 14,527 
2319 DATA CC, C8,91,43,3C,81,96,F9,Cû,91,13,CC,94,91,93,507 
2328 DATA 3C,01,06,FD,E8,91,12,CC,C8,91,04,3C, 91,07, FD, 4F3 
2339 DATA C4,81,11,CC, 94,81, 94, 3C, 91,97, FD,E0,Cû,91,0F, 523 
2349 DATA CC, C8,91,95,CD,01,98,F8,CB,1,8F,CC,94, 91,85, 589 
2359 DATA 3C,81,98,F0,E9,C4,91,9D, CC, C8,91,96, 3C, 91,09, 4CB 
2369 DATA F9,E0,C4,91,0A,CC,C8,81,08,C8,01,A,F0, E9, CO, 797 
2379 DATA #1,98,CC,CB,C9,91,13,F,E0,CS,C4,81,95, CC, CB, 757 
2388 DATA C9,01,16,F0,01,06,C8,D8,01,99,F9,F0,99,00, 60,548 
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19 " Craateur de P4,BIN 

28 ' 

38 MODE 2:AD-&CH99 :NL=199 

48 FOR A=1 TO 635:B=9:FOR C=1 TO 15:READ A$ 

58 POKE AD, VAL("&"+A$) :B=B+PEEK (AD) : AD=AD+1 

69 NEXT:READ E$:1F VAL("&"+E$)OB THEN 88 

78 NL=NL+18:NEXT :SAVE"P4, BIN",B, &C999, &252D:CLS : END 








88 CLS:PRINT"LIGNE"NL;" INCORRECTE" : END 

98 ’ 

189 DATA 67,31,C9, D9,81,3B,1F,25,15,D9,C1,01,3A,C3,C1,61F 
119 DATA 81,39,FF,EB,C1,91,39,FF,EB,C1,EB, 91,38, C3,EB, 89C 
128 DATA C1,EB,891,12,3F,6B,8F,8F,4F,4F,91,94,9F,4F,4F, 4D7 
139 DATA 91,04,0F,4F,4F,6F,4B,91,12,0C,49,EB,C1,EB, 91,480 
148 DATA 12,3F,6B,6F,21,94,0F,CF,4F,91,94,9F,CF,4F,4F,SFE 
158 DATA 8F,4F,CF,CB,91,12,9C,49,EB,C1,EB,01,06,3F,C3,692 
168 DATA C3,97,91,47,3F,6B,4F,91,94,CF,9F,0F,0F,CF,CF, 4FA 
178 DATA CF,9F,0F,CF,CF,CF,6F,4B,91,98,4C,C3,C3, 86,91,656 
188 DATA 97,8C,49,EB,C1,EB,91,97,3F,C3,C9,85,4B,97,91,625 
198 DATA 96,3F,6B,91,95,8F,4F,4F,91,04,0F,4F,4F,8F,4F,2F3 
288 DATA 8F,8F,4B,91,97,9C,C3,CF,8F,CB,86,91,96, DC, 49,54B 
219 DATA EB,C1,EB,91,96,3F,6B,D7,C9,C9,9F,C3,01,86,3F,6B7 
228 DATA 6B,CF,CF,CF,8F,CF,CF,9F,4F,CF,8F,CF,CF,8F,CF, BD 
239 DATA 8C,9C,9C,CB,91,96,9C,49,87,0F,9F,9F,C3,81, 96, 2C9 
249 DATA 8C,49,EB,C1,EB,91,96,3F,D7,FF,EA,C9,9F,9F,97,767 
259 DATA 91,95,3F,6B,8F,3C,3C,6D,4F,6F,4F, 1E, 3C, 3C, 4F, 436 
269 DATA CF,4F,8F,9C, A4, A4,CB,91,96,9C,C7,CF,4F,@F,6F,5E2 
279 DATA 9F,86,91,95,9C,49,EB,C1,EB,01,95,9F,6B,FF,FF,635 
284 DATA EA,C9,8F,9F,CB,91,95,3F,6B,4F, 3D,9F,6F,0F,9F,51B 
299 DATA 9F,9E,9C,0C,0F,4F,4F,8F,58,58,9C, 4B,91,95,9C,31A 
389 DATA 49,CF,8F,0F,9F,0F,4F,CB,01,95,0C, 49,EB,C1,EB,5F9 
319 DATA 91,95,3F,C3,FF,FF,EA, C9, 4A,0F,CB,97,91,04,3F,GAF 
329 DATA 6B,8F,3D,3F,6F,8F,4F,4F,9E,9C,9C,CF,4F,CF,CF, 684 
334 DATA 9C,A4,A4,4B,91,95,0C,C3,6F,4F,9F,4F,0F,4F, 4B, 459 
349 DATA 86,91,84,9C,49,EB,C1,EB,91,95,3F,D7,FF,FF,FF, 799 
354 DATA C8,CA,8F,9F,97,01,94,3F,6B,6F, 3D, 3F,6F, 9F,9F, 596 
368 DATA DF,1E,8C,8C,8F,9F,CF,0F,58,58,9C,4B,91,95,9C, 25A 
378 DATA C7,CF,8F,4F,CF,8F,CF,CF,86,91,94,0C, 49, EB,C1, 7FC 
389 DATA EB,91,94,3F,6B,491,04,FF,C9,C9,6F,9F,CB,91,94,58C 
399 DATA 3F,6B,4F,3D,3F,6F,8F,CF,CF,9E,9C,0C,8F,CF,4F,674 
499 DATA 4F,9C, A4, A4,CB,91,94,0C, 49,89F,9F,CF,4F,91,04, 499 
419 DATA 9F,C1,91,94,0C,49,EB,C1,EB,91,04,3F,6B,91,94,475 
429 DATA FF,C9,C9,8F,9F,CB,91,84,3F,6B,9F, SD, 3F,2F,8F,5E9 
438 DATA 6F,8F,9E,9C,9C, 9F,8F,8F,8F,58,58,C, 4B,91,04, 49C 
449 DATA 8C,49,CF,CF,8F,9F,4F,CF,CF,8F,C1,91,94,9C, 49,628 
458 DATA EB,C1,EB,91,94,3F,97,91,94,FF,EA,C#,8F,CF,0F, 70D 
469 DATA 97,3F,3F,9F,6B,CF,3D,3F,2F,9F,4F,CF, 1E,9C, C, 49C 
479 DATA 9F,CF,CF,9F,9C, A4, A4,CB,91,04,9C,C7,0F, àF, 4F, 568 
489 DATA 4F,6F,0F,9F,9F,D5,86,4C,9C,0C, 49,EB,C1,EB, 01, 56B 
499 DATA 94,3F,97,91,94,FF,EA,C9, 4A,0F,9F,97,3F,3F,3F,544 
599 DATA 6B,9F,3D,3F,6F,8F,9F,8F,1E,9C,9C,CF,6F,6F,0F,444 
519 DATA 9C,9C,9C, 4B,81,94,4C,C7,4F,91,94,0F,4F, 4F, 4A, 292 
529 DATA FF,86,9C,9C,9C,49,EB,C1,EB,3F,3F,3F,6B,95,91,647 
539 DATA 95,FF,C8,CA,CF,9F,4B,3F,3F,3F,6B,91,95,0F,CF,5C3 
548 DATA 4F,CF,4F,4F,CF,CF,4F,CF,CF,4F,CF,CB,9C,9C,9C, 754 
558 DATA 49,4F,CF,CF,9F,CF,F,F,4F,4A,EA,C1,9C, 9C, 9C, 59A 
569 DATA 49,EB,C1,EB, 3F,3F,93F,6B,95,91,95,FF,C8,C8,4F,771 
579 DATA 8F,4B,3F,3F,3F,6B,4F,91,94,CF,0F,91,95,CF,8F, 498 
589 DATA 8F,81,94,CF,CB, 40, 4C, 0C, 49,91,96,8F,9F,BF,D5, 4A4 
59ÿ DATA 84,49,9C, 9C,0C, 49,EB,C1,EB,3F,9F,9F,6B,BF,91,5B9 
699 DATA 85,FF,6A,C8,0F,9F,CB, 3F,3F,3F,6B,9F,3C, 3C, 2D, 4F3 
619 DATA 9F,91,97,0C, 4D,8F,3C,3C,2D,CB,8C, 8C, DC, 49, CF, 3AB 
629 DATA 8F,CF,4F,9F,0F,8F,0F,C4,48,C1,9C,9C, QC, 49,EB, 5BA 
639 DATA C1,EB,3F,3F,3F,D7,BF,91,95,FF,6A,C9,9F, 8F,0F, 6DB 
649 DATA 97,3F,3F,6B,CF, 30, 3F,2F,CF,91,97,9C,9D,CF,2C, 4ES 
659 DATA 9C, 4D,CB,8C,4C,9C,87,91,97,0F, 4A,9C,D5,FF, 66, 496 
669 DATA 2C,8C,49,EB,C1,EB, 3F,3F,3F,C2,BF,D5,91,94,FF, 70F 
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678 DATA 7F,C0,85,4F,9F,97,3F,3F,6B,8F, 30, 3F,2F, 4F, 9D, 4B8 
689 DATA 4F,9F,4F,4F,4F, BF, 4D,9F,2C, 4C, 4D, CB, 9C, 8C, AC, AA 
699 DATA 87,CF,0F,4F,CF,4F,9F,44,84,C9,FF,FF, 86, 0C, 8C, 79B 
780 DATA 49,EB, C1, EB, 3F,9F,9F,87,05,7F,FF,FF,FF,EA,FF, AGE 
718 DATA CO,85,4F,8F,97,3F, 3F,68,CF, 30, 9F,2F,8F, 0D,9F,548 
728 DATA CF,CF,8F,8F,8F,4D, CF, 2C,4C, 4D, 4B, 0C, AC, OC, 87, 4E2 
738 DATA 9F,4F,CF,8F,4F,4F,84,48,FF,FF,FF,86,0C, 0C, 49, 79A 
749 DATA EB,C1,EB, 3F,3F,6B,6F, 44, 7F,FF,FF,EA,BF,FF,EA, AGB 
759 DATA 85, 4F,0F,CB, 3F,3F,68, BF, 30, 3F, 2F,8F, 4D,4F, CF, 5CB 
769 DATA 4F,4F,8F, 4F, 4D, CF, 2C, 9C, 4D,4B, 4C,0C, 49, 4F,DF, 427 
778 DATA 4F,0F,4F,0F,CO,48,C0,FF,FF,FF,EB, 0C, 0C, 49,EB, 7BB 
788 DATA C1,EB,3F,3F, 68, 0F,0F,7F,FF,FF,EA,BF,FF,EA,C5, 9B7 
799 DATA 4F,0F, 4B,3F,3F,68,0F, 30, 3F,2F,0F,0D,91,96,0F, 27E 
899 DATA 8D,0F, 20, AC, 4D, CB, 4C, 0C, 49, CF,8F,CF,CF, 4F, CH, 5D8 
819 DATA 0C,CB,EA,FF,FF,FF,EB,0C, C, 49,EB,C1,EB, 3F, 3F,914 
829 DATA 68,0F,8F,6A,FF,EA, D5,BF,FF,FF,EA,65,9F, 4B,F,8F6 
838 DATA 3F,68,0F, 30,3F,2F,8F, 4D,4F,BF,0F,6F,CF, 4F, 4D, 527 
848 DATA 8F,2C, 8C, 4D, 4B, 4C, OC, 49,91,04,0F, 4A, OC, CB, 4A, 334 
858 DATA 91,04,FF,EB, 00, 0C, 49,EB,C1,EB, 3F,9F,6B,0F,BF,66E 
869 DATA GA,FF,EA,FF,BF,FF,FF,FF,C0,4F,CB, 3F,3F,6B,DF, OES 
879 DATA 3D,5F,6F,4F,4D,6F,8F,0F,6F,0F,8F,0D,8F, 2C, fC, 485 
888 DATA GD,CB, 40, 8C, 49,4F,CF, CF,CF,84,C0,4F,D5,91, 04,662 
899 DATA FF,EB, 40, 8C, 49, EB, C1, EB,3F,9F,6B,0F,0F, 6A,FF, 752 
999 DATA D5,FF,64,81,84,FF,85, CB, 3F, 9F,6B,0F,8F,0F,0F, 637 
919 DATA CF, 0D,6F,DF,4F,0F,0F,4F,4D,0F,CF,4F,4F,4B, 80, 456 
929 DATA 80, 49,6F,0F,8F,CA, 48, 0F,8F,D5,91,04,FF,EB, DC, 582 
939 DATA OC, 49,EB, C1,EB, 3F,3F,68,6F,0F,95,FF,D5,FF, 7F, B5A 
94ÿ DATA 91,96,FF,AF, CB, 3F,9F,6B,0F,6F,6F,0F,0F,0D,9F, ACE 
959 DATA 0F,4F,4F,0F,0F,0D,9F,4F,4F,CF,CB, 0C, 4C, 49, 8F, 38F 
969 DATA 4F,4F,84,85,84,C0,91,05,FF,EB, 0C, OC, 49, EB,C1,6EB 
978 DATA EB, 3F,3F,6B,9F,0F,1F,D5,D5,FF,7F,FF,FF,EA,FF, 928 
989 DATA EA, 8F,97, 3F,6B, UF, 3, 3C, 6D,6F,91,07,0C, AD, 4F, 4ED 
999 DATA 3C, 3C, 6D, CB, 40, 0C, C7, 0F,9F, 4A, 48, DE, 8C, 48, D5, 476 
180 DATA 91,85,FF, 86, 0C, 49, EB,C1,EB, 3F, 3F,87,CF,0F, 1F, 679 
1919 DATA D5,D5,EA, 7F,FF,FF,EA, CG, CO,8F,97,3F,6B, 4F, 3D, 9D? 
1828 DATA 3F,2F,0F,91,07,0C,9D, CF, 2C, 0C, 4D, CB, 4C, BC, 87, 35C 
1930 DATA 8F,0F,84,85,48,0F,48,C9,D5,91,04,FF,86,9C, 49, 5BA 
1949 DATA EB, C1,EB, 3F,3F,87,4F,4F,1F, 4A,D5,BF,D5,FF,FF, Q9A 
1958 DATA EA, 4F,0F,8F,97,3F,6B, 0F, 30, 9F,2F,8F, 00, 4F,91, 4BE 
1869 DATA 04,0F,4F, 4D,8F, 2C, 0C, 4D, 4B, 0C, 90, 87,8F, CU, 84,499 
1979 DATA 4A,C, CO, 84,05,D5,91,04,FF,86,9C, 49, EB,C1,EB, BGE 
1989 DATA 3F,3F,87,4F,4F,1F,44,D5,95,D5,FF,FF,EA, 85, 8F, 7C7 
1998 DATA 0F,97,3F,6B, CF, 3D,3F,6F,6F,0D,9F,4F,CF,8F,CF, 631 
1188 DATA CF, 8D, CF, 2C, 9C, 4D, CB, 0, 90,87, 4A,FF,4B, CB, 48,633 
1119 DATA FF,84,D5,EA,91,94,FF,66,9C, 49, EB, C1,EB, 3F, 3F, 836 
1129 DATA C7,8F,0F,0F,0F,CB,6A,7F,FF,D5,FF,85, CF, 0F, 97, 849 
1138 DATA 3F,68,0F, 30, 3F,2F,9F, 0D, 4F,0F,4F,0F, 4F,8F, 4D, 367 
{149 DATA OF, 20, 4C, 4D, CB, 90, 4C,C7, 4A, CB, 48,FF,4B,FF, AE, 684 
1159 DATA D5,EA,81,04,FF, 86, 4C, 49, EB, C1,EB, 3F, 3F,C7,0F, 789 
1169 DATA 8F,9F,8F,95, EA, 7F,EA,DS,FF,FF, 4F,0F,07,3F,6B,917 
1179 DATA CF,30,3F,2F,9F,4D,9F,CF,CF,0F,0F,9F, 0D, CF, 2C, 4BB 
1189 DATA AC, 8D, 4B, 40, 8, 87,D5,FF,D5,EA,D5,FF,EA, 5D,FF, 684 
1199 DATA D5,FF,FF,EA, 86,00, 49, EB, C1, EB, 9F,3F, C7, 0F,8F, 892 
1299 DATA 1F,9F,95,EA, 7F,EA,D5,FF,FF,C5, 4F,97,3F,68,8F, BCD 
1219 DATA 3D,3F,2F,8F, 4D,4F,CF,4F,8F,8F,4F, 4D, CF, 2C, 4C, 535 
1229 DATA D, CB, 4C, 0C,87,D5,CB,FF, AE, CB, FF, EA, 48, FF, D5, 97E 
1239 DATA FF,FF, CO, 86,4C,49,EB, C1,EB, 9F,3F,87,4F,0F, 1F, 782 
1249 DATA 4F,6A,EA, 7F,D9,D5,EA,CB, CF, CF,97,3F,68, 0F, 3D, 89C 
1258 DATA 3F, 2F,0F,00,0F,0F,4F,0F,8F,0F,0D,9F, 20, C, 4D, 1C5 
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1269 DATA 4B, 80, 0C,C7,D5,E8,FF, AE, 0C, CO, CB, 48,FF,DS,FF, 933 
1279 DATA FF, C8, 86, 0C, 49, EB, C1, EB, 3F,3F,67,4F,0F, 1F,ÎF, 6D2 
1289 DATA GA,FF, 7F,C0,FF,85,0F,4F,0F,07,9F,6B,CF,DF,CF, 787 
1299 DATA 4F,CF,0D,CF,4F,8F,4F,8F,CF, D, 4F,8F,0F,8F,CB, 719 
1399 DATA 4C,4C,C7,D5,FF,FF,CB,84,90,48,C8,D5,FF, FF, EA, 9C7 
1319 DATA C9,86, 40, 49,EB,C1,EB, 3F,3F,87,CF,8F,9F, 1F,5F, 7B2 
1328 DATA FF,7F,C6,FF,85,4F,0F,4F,07,9F,6B,9F,4F,8F,4F,66C 
1339 DATA 4F,4D,6F,6F,9F,6F,0F,6F,0D,8F,0F,8F,0F, CB, OC, 516 
1349 DATA 0C,87,C8,FF,EA, 48, EA,CB, CB, 48,48,D5,FF, CO, CB, 9D2 
1359 DATA 86,00, 49,EB,C1,EB,3F,9F,87,CF,8F,CA,1F,DF,FF, 80C 
1369 DATA 7F,05,FF,85,CF,4F,8F,97,3F,68,4F, 30, 3C, 2D, CF, 789 
1379 DATA 91,97, 0C, 4D, 9F, 3C, 3C, 2D, 4B,0C, 0C,C7, CA, D5, 84, 462 
1389 DATA D5,FF,FF,EA, 48, 0C, 48,FF, CB, CB, 86,80, 49,EB,C1,95F 
1399 DATA ER, 3F,3F,87,0F,6F,0F,6F, 7F,FF, 7F,FF,FF,85,0F, 79B 
1499 DATA 0F, 48, 3F, 3F,6B,0F, 3, 3F,6F,4F,91,07,0C, 0D,0F, 2BC 
1419 DATA 2C, 0C, 9D, 48, 9C, 0C, 49, 9F,CB,48,91,94,FF,D5,C, 4A1 
1429 DATA 8C, CH, C4, 4B, 00, 0C, 49,EB, C1, ER, 9F,3F,68, 8F,8F, 656 
1439 DATA 9F,2F,7F,FF,7F,FF,FF,8F,9F, UF, 4B,3F,3F,6B,8F, 6A9 
1449 DATA 3D,3F,6F, CF, 9D, CF, 4F,0F,0F,CF,CF, 4D,8F, 20,0, 535 
1459 DATA 4D, CB, AC, AC, 49,0F,DE,D5,FF,FF,EA,D5,FF,FF, 84, 86A 
1469 DATA 48,C9,C1,2C,0C,49,ER,C1,EB, 5F,9F,68,CF,4F,4F, 717 
1479 DATA 2F,6A,FF,7F,FF,EA,0F,4F,6F,CB, 3F,3F,6B, CF, 3D, 7AD 
1489 DATA 3F,6F,0F, 4D,0F,01,94,CF,BF, DD,9F, 2C, AC, 4D, dE, 368 
1499 DATA OC, C,49,8F, 44, FF,FF,FF,EA,CO,FF,FF,EA, CO, 85, AGE 
1599 DATA CB, 4C, 0C, 49, EB, C1, ER, 3F,3F,6B,CF,4F,CF,95,1F, 74D 
1519 DATA DS, 7F, FF, EA, 4F, 4F,6F,CB, 3F,9F,68,0F, 3D, 3F,6F, 718 
1528 DATA BF, 4D,4F,6F,0F,0F,0F,4F,4D,0F, 2C, 00, 00, 4B,8C, 32E 
1539 DATA 4C,49,0F,8F,D5,FF,FF,EA, EU, FF,FF,FF,CD,CS, CB, ADD 
1549 DATA BC, 0C,49,EB,C1,EB, 0F,3F,6B,6F,0F,0F, LF, 44, 7F,576 
1559 DATA 7F,FF,EA,4F,0F,6F,4B,3F, 3F,6B, CF, 30, 3F, 2F,8F, 692 
1568 DATA 4D,8F,CF,CF,8F,CF,CF, 8D,4F, 2C, 0C, 4D,CB, 8C, BC, SEB 
1579 DATA 49,0F,0F,4A,FF,FF,FF,C0,D5,FF,FF, CH, 0F, 4B,0C, 867 
1589 DATA 8C, 49,EB, C1, EB, 3F,3F,6B,6F,0F,0F, 1F,DF, 7F,7F,B7E 





ABONNEZ-VOUS ! 


11 numéros 
Pal E 


A3 


-D'ECONOMIE 










5% de remise 


























sur les produits 
du catalogue 
SORACOM 
= 
je désire m'abonner à CPC intos pour ATTENTION ! 
0 U 1 , un an au prix de 210 F ( 11 numéros) SEUL CE BULLETIN 
D'ABONNEMENT 
Nom : Prénom : EST VALABLE 
Adresse : 
Code postal : Ville : phré 
Date : Signature ne 
obligatoire | BANCAIRE 











CPC N°35 


Q je désire payer avec une carte bancaire Date d'expiration 


e Les abonnements ne sont pas rétroactifs 





e Envoi par avion + 165 F | LI] fai || | LA |] || | Lil1} 


Envoyez votre bulletin accompagné du règlement à : Editions SORACOM - Service abonnement - BP 88 - 35170 BRUZ 








LE SPÉCENSIRSRRNRE 





LAS LA Le 


notre CATALOGUE 
des éducatifs 





disquettes || 














TV EDUCATIF 44 





AMSTRAD 464, 664, 6128 
ATARI ST, STE, STF, MEGA ST 
Compatibles PC 


pour être 
bon 

en français 

el en maths 








Les details des logiciels 
les tarifs 


a ete 0 
1 Je désire recevoir le catalogue des éducatifs, possédant 6 | 


| un ordinateur{(s) de 
Imarquel{s) 














l de types) 
a l'adresse ci-contre Nom: Prénom 
Adresse: 
Code postal: Ville: 


A envoyer à SORACOM Editions - BP 88 - 35170 BRUZ 
Joindre deux timbres à 2,30 F 










= =S 
IE S 


155 F + port 


*o. 
de 


à 


We 
À 
LE 
; 


175 F + port] 
PE. 
4 & 
v 
102 F +port 


Port + 25 F par article 
port + 40 F par article pour l’étranger 








Juiektie 


TA ES 
REY APE 





“<a 
NN 
180 F + port | 
, F K 
a & 
LS je 
% > dy 125 F + port 


160 F + port 
Fe, ! 
TA 190 F + port 


Module serrure 


{bien indiquer la boîte) 





Voir bon de commande page 38 





